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The  goal  of  this  work  was  to  develop  an  understanding  of  copper  corrosion  in 
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impedance  data.  A mechanism  for  which  film  removal  can  occur  based  on  differ- 
ential convective  mass  transfer  was  proposed  which  may  account  for  the  velocity 
enhanced  corrosion  of  copper  in  chloride  solutions. 
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CHAPTER  1 
INTRODUCTION 


The  object  of  this  work  was  to  develop  insight  to  copper  corrosion  in  brines. 
The  influence  of  one  or  more  possible  films  present  on  the  metal  surface  is  investi- 
gated through  electrochemical  experiments,  development  of  a steady  state  physico- 
electro chemical  model  which  includes  all  expected  species,  and  application  of  an 
model  for  the  impedance  response  to  experimental  data. 

This  work  is  part  of  a project  to  study  velocity  enhanced  corrosion  of  copper 
and  its  alloys  in  saline  solutions.  These  metals  are  commonly  used  in  sea  water 
because  they  are  resistant  to  corrosion  and  biofouling.  Several  factors  contribute 
to  corrosion  resistance.  Copper  has  a high  thermodynamic  stability,  forms  a pro- 
tective film,  and  prevents  biofouling  through  its  toxicity.  However,  high  corrosion 
rates  have  been  reported  [1,  2]  under  conditions  of  high  fluid  velocity  such  as  those 
found  in  marine  heat  exchangers  or  screws. 

An  experimental  program  was  performed  to  identify  the  influence  of  a hydrody- 
namic mass  transfer  boundary  layer  on  the  rotating  disk,  the  effect  of  one  or  more 
possible  films,  and  a kinetic  resistance.  The  experimental  methods  are  described 
in  Chapter  3,  and  the  results  are  discussed  in  Chapter  4. 

Stability  of  data  was  determined  through  the  direct  integration  of  the  Kramers- 
Kronig  relations  [3]  and  application  of  a measurement  model  [4].  This  model  was 
also  used  to  improve  sensitivity  to  the  influence  of  system  parameters  [5].  The 
results  of  these  techniques  are  presented  in  Chapter  5. 
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A mathematical  model  for  the  steady  state  dissolution  of  copper  that  accounts 
for  all  expected  chemical  species,  interfacial  reactions,  homogeneous  equilibria  and 
the  behaviors  of  porous  and  oxide  films  has  been  developed.  A simplified  sinusoidal 
steady  state  physico-electrochemical  model  was  developed  and  regressed  to  exper- 
imental data  [6].  The  development  and  the  results  of  both  physico-electrochemical 
model  are  presented  in  Chapter  6. 


CHAPTER  2 

LITERATURE  REVIEW 


Previous  studies  of  copper  corrosion  are  reviewed  in  this  chapter.  The  ef- 
fect of  thermodynamics,  kinetics,  and  films  on  the  possible  interfacial  reactions 
is  described.  Significant  disagreement  exists  in  the  literature  for  aqueous  copper 
corrosion,  particularly  for  studies  of  copper  in  chloride  environments.  The  influ- 
ence of  pH,  chloride,  and  films  has  been  observed,  but  a consensus  for  how  each 
affects  the  dissolution  system  has  not  been  reached.  None  of  the  proposed  physico- 
electrochemical  models  include  all  of  the  species  expected  in  the  corrosion  system, 
and  most  have  made  additional  simplifications  about  the  influence  of  mass  trans- 
fer on  the  system.  Most  studies  have  focused  on  the  surface  reactions,  adsorption 
mechanisms,  and  film  compositions.  Discrimination  between  models  has  been  dif- 
ficult because  the  influence  of  minor  species  and  their  transport  phenomena  has 
not  been  included.  The  identification  of  films  has  been  difficult  because  analytical 
techniques  must  be  performed  in  situ  and  the  film  has  a complex  composition. 
Most  film  identifications  have  been  inferred  from  reaction  mechanisms  and  the 
observed  current  and  potential  behavior. 

In  this  chapter,  the  thermodynamics  and  Pourbaix  diagrams  of  copper  corrosion 
are  discussed  first  followed  by  the  identification  of  the  possible  cathodic  reactions 
for  the  system.  The  corrosion  behavior  of  copper  in  chloride  free  water  is  reviewed. 
The  effect  of  chloride  in  the  system  is  discussed  in  four  subsections.  Acid,  neu- 
tral, and  alkaline  environments  are  covered  separately,  and  a subsection  describing 
existing  physicochemical  models  follows.  Finally,  models  for  the  transport  of  ions 
across  films  are  reviewed. 
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2.1  Thermodynamics  of  Copper  Corrosion 

Copper  at  open  circuit  potential  is  thermodynamically  stable  in  solutions  free 
of  oxidizing  agents.  Under  conditions  where  copper  is  unstable,  the  metal  is  often 
covered  by  a film  of  insoluble  corrosion  products  which  affects  its  electrochemical 
behavior. 

The  electrochemical  reactions  and  standard  electrode  potentials  (NHE)  for  cop- 
per and  copper  ions  are 


Cu+  + e-  r=*  Cu 

E° 

- 0.521V 

(2.1) 

Cu++  + 2e_  Cu 

E° 

= 0.337V 

(2.2) 

Cu++  + e-  Cu+ 

E° 

- 0.153V 

(2.3) 

Pourbaix  (potential-pH)  diagrams  of  copper  in  saline  water  (3.5  percent  salin- 
ity) have  been  presented  [7].  Equilibrium  diagrams  which  take  the  most  common 
solid  phases  into  consideration  are  shown  in  Figures  2.1  and  2.2.  The  effect  of 
bicarbonate  was  also  calculated  [7]. 

The  diagrams  are  complex;  the  corrosion  products  formed  are  sensitive  to  both 
pH  and  potential  in  the  region  of  this  study.  Potential-pH  diagrams  for  copper  in 
fresh  water  are  also  available  [8].  Pourbaix  diagrams  provide  a reference  point  for 
what  reactions  may  occur  and  for  what  solids  may  exist  on  the  surface  of  copper 
in  saline  solutions.  However,  the  data  are  limited  to  an  equilibrium  condition. 
The  kinetics  of  dissolution,  mass  transport  effects,  film  properties,  and  electrode 
history  such  as  initial  electrolyte  immersion  or  initial  applied  potential  are  a few 
of  the  factors  that  may  affect  the  final  state  of  the  system.  The  initial  pH  of  the 
solution  is  particularly  important  [9]. 
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The  free  corrosion  of  copper  generally  occurs  through  the  action  of  local  anodes 
and  cathodes.  Metallurgical  treatments  may  create  a driving  force  for  dissolution. 
Grain  boundaries,  grain  orientation,  differential  grain  size,  and  surface  roughness 
are  possible  sources  of  an  electrochemical  driving  force  [10]. 

2.2  Cathodic  Reactions 

For  corrosion  of  a metal  to  occur,  the  dissolution  reaction  must  be  balanced  by 
an  electronation  (cathodic)  reaction.  In  aqueous  electrolytes,  the  electron  acceptors 
under  most  conditions  are  H30+  ions  and  dissolved  oxygen  [11].  The  reaction 
schemes  in  acid  and  alkaline  environments  are  listed  in  Table  2.1. 


Table  2.1:  Cathodic  Reactions  Occurring  on  Copper  [11,  12,  13] 


Reaction 

Electrolyte 

E°,  V (NHE) 

2H+  + 2e~  H2 

[acid] 

0.000 

2H20  -1-  2e~  ^ H2  + 20H- 

[alkaline] 

-0.828 

02  + 4H+  + 4e"  ^ 2H20 

[acid] 

1.229 

02  + 2H20  + 4e“  ^ 40H" 

[alkaline] 

0.401 

02  T 2H+  + 2e  ^ H202 

[acid] 

0.682 

02  + 2H20  + 2e~  ^ H202  + 20H~ 

[alkaline] 

-0.146 

H202  -1-  2H+2e~  ^ 2H20 

[acid] 

1.776 

H202  T 2e  ^ OH 

[alkaline] 

0.948 

6 


pH 


Figure  2.1:  Equilibrium  diagram  for  copper  in  sea-water  at  25°C.  Solid  phases 
taken  into  consideration:  Cu,  Cu20,  CuCl,  CuO,  Cu2(OH)3C1  [7]. 
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Figure  2.2:  Equilibrium  diagram  for  copper  in  sea-water  at  25° C.  Solid  phases 
taken  into  consideration:  Cu,  Cu20,  CuCl,  Cu(OH)2,  Cu2(OH)3C1  [7] 
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The  reversible  potentials  show  that  reduction  of  oxygen  is  favored  over  the 
hydrogen  evolution  reaction.  The  potentials  of  the  reactions  in  acid  and  alkaline 
environments  can  be  easily  converted  through  use  of  the  water  dissociation  constant 
(K/i  = 10-14)  and  the  Nernst  equation  resulting  in  a difference  of  0.828V. 

In  chloride  solutions,  the  reduction  of  oxygen  proceeds  by  the  two  electron 
reaction  to  produce  peroxide  [12-15].  The  subsequent  reduction  of  peroxide  to 
hydroxide  or  water  is  not  important  for  this  environment  [13-15].  This  is  because 
the  rate  of  peroxide  reduction  is  slow  on  copper  compared  to  its  diffusion  away 
from  the  surface.  The  relative  rates  of  the  two  successive  reactions  can  be  expressed 

by  [12] 

KHh2  O2  b ( (^reduction)  /q  a \ 

°2  = n — u : — yZA' 

U O2  ^(H2  (^reduction) 

where  k,  are  the  pre-exponential  rate  constants  of  the  Butler- Volmer  rate  expres- 
sions for  the  reactions,  and  D,  are  the  diffusivities.  The  ratio  Ko2  has  a value 
of  about  3xl07  on  mercury  [12].  However,  the  kinetics  of  the  oxygen  reduction 
reaction  depends  strongly  on  the  surface  on  which  it  occurs  [11],  and  the  same  is 
expected  for  the  peroxide  reduction. 

2.3  Corrosion  in  Aqueous  Electrolytes  Without  Chlorides 

Copper  is  not  corroded  by  solutions  free  of  complexing  and  oxidizing  agents  [8]. 
Simpson  and  Schenk  [16]  were  not  able  to  detect  any  hydrogen  evolution  from 
copper  immersed  in  pure  water  and  therefore  concluded  that  water  cannot  be  an 
oxidant  for  copper  in  pure  aqueous  or  dilute  chloride  media.  In  neutral  aerated 
aqueous  solutions,  the  following  mechanism  has  been  reported  [10]: 

2Cu  -f  H+  + 02  - 2Cu++  + 2H20  (2.5) 


Equilibrium  expressions  indicate  that  the  reaction  Cu  + Cu4"1'  ^ 2Cu+  is  displaced 
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far  to  the  left  [17],  but  if  complexes  are  formed  (e.g.  Cl-)  the  depletion  of  cuprous 
ion  by  the  complexation  reaction  favors  Cu+  as  the  major  dissociation  product  [17]. 

A protective  layer  of  solid  Cu20  has  been  observed  on  copper  in  alkaline  chlo- 
ride solutions  [18-28].  The  oxide  is  generally  considered  to  be  the  first  anodic 
oxidation  product  [24-30].  Subsequent  formation  of  cupric  oxide  CuO,  cupric  hy- 
droxide Cu(OH)2,  or  bicuprite  anion  HCu02  has  been  seen  [25,  26,  28,  29,  31]. 
The  existence  of  a Cu20  film  under  a porous  Cu(OH)2  has  been  observed  through 
in-situ  Raman  Spectroscopy  measurements  [28].  There  is  disagreement  in  the  liter- 
ature as  to  whether  the  divalent  species  form  in  consecutive  or  concurrent  electrode 
reactions  [26].  Pourbaix  diagrams  [8]  indicate  that  Cu20,  CuO,  or  Cu(OH)2  can 
form  on  Cu  in  alkaline  solutions  depending  on  electrode  potential.  A duplex  film 
has  been  suggested  [24]  where  a thin  cuprous  oxide  film  grows  to  a thickness  of 
about  20A  when  mechanical  strains  break  up  its  outer  regions.  This  takes  place 
before  an  asymptotic  stage  of  growth  is  reached  forming  a porous  film  of  disorga- 
nized structure,  loosely  adherent  to  the  compact,  underlying  layer.  Treatment  of 
alkaline  solutions  containing  cupric  ions  with  strong  oxidizing  agents  [26]  or  appli- 
cation of  potentials  near  oxygen  evolution  [25,  30]  have  yielded  Cu(III),  possibly 
in  the  form  of  Cu203. 

The  formation  of  Cu20  was  reported  to  occur  by  the  formation  of  a soluble 
Cu(I)  species  followed  by  chemical  precipitation  [26]: 

Cu  + 20H-  ->  Cu(OH)2+e-  (2.6) 

2Cu(OH)2+H+  ->  Cu20  + 3H20  (2.7) 

Nuclei  of  Cu20  were  found  to  form  instantaneously  and  grow  to  cover  completely 
the  metal  surface  [26,  27].  A transition  time  of  972  seconds  for  compete  surface  cov- 
erage was  found  for  copper  in  0.01M  NaOH  with  an  applied  12.9  //A/cm2  galvano- 
static  current  [26].  At  high  current  densities,  the  protective  layer  is  destroyed  [18]. 
An  outer  layer  of  CuO  or  Cu(OH)2  has  also  been  seen  [20].  Hamilton  et  al.  [29] 
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and  Miller  [25]  note  the  importance  of  nucleation  and  report  parabolic  growth  from 
which  they  conclude  probable  diffusion  control. 

Cuprous  oxide  formed  in  alkaline  solutions  has  photo-electrochemical  properties 
[31,  32].  The  oxide  shows  the  characteristics  of  a p-type  semiconductor  with  a band 
gap  of  2.3eV  [31]. 

At  more  anodic  potentials  than  those  associated  with  Cu20  formation,  Cu++, 
CuO  or  Cu(OH)2  has  been  seen  [25,  26,  29,  30].  Generation  of  these  species  by 
oxidation  of  metal  could  be  hindered  by  the  Cu20  film  [29].  The  reactions 

Cu20  + 20H~  ^ 2CuO  + H20  + 2e~  (2.8) 

Cu20  + 20H~  + H20  ^ 2Cu(OH)2  + 2e~  (2.9) 

were  suggested  [29]  to  be  mechanisms  for  CuO  and  Cu(OH)2  production. 

2.4  Corrosion  in  Chloride  Solutions 

Chloride  ions  in  aqueous  solutions  cause  significant  change  in  the  corrosion 
behavior  of  copper.  Chloride  concentrations  as  low  as  50ppm  have  been  reported  to 
cause  accelerated  dissolution  of  the  cuprous  oxide  film  [24].  However,  the  possibility 
for  chloride  film  formation  is  introduced. 

The  chloride  ion  forms  complexes  resulting  in  the  depletion  of  cuprous  ion 
favoring  Cu+  as  the  major  dissociation  product  [17].  The  dissolution  rate  can  be 
measured  using  a ring  disk  electrode  by  dissolving  copper  at  the  disk  and  oxidizing 
cuprous  ions  at  the  ring  [15]. 

The  presence  of  oxygen  should,  under  mixed  potential  theory,  cause  the  cor- 
rosion of  copper  to  increase.  The  nature  of  the  films  found  on  copper  however, 
prohibits  the  extrapolation  of  thermodynamic  or  kinetic  theory  to  corrosion  be- 
havior in  an  aerated  chloride  environment. 
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The  corrosion  rates  of  copper  in  aqueous  sodium  chloride  solutions  are  lower 
than  in  the  compositionally  complex  sea  water  [33].  Sea  water  contains  a variety 
of  surface  active  chemical  species  as  well  as  solids  which  may  cause  an  increase  in 
corrosion  rate. 

2.4.1  Acidic  Chloride  Solutions 

Most  of  the  copper  corrosion  papers  found  in  the  literature  treat  de-aerated 
acidic  chloride  solutions.  Results  of  experiments  in  this  medium  tend  to  be  more 
consistent  than  those  in  alkaline  and  neutral  media.  Most  investigators  reported 
that  the  anodic  dissolution  of  copper  in  acidic  chloride  solutions  is  largely  diffusion 
rather  than  activation  controlled  and  that  the  oxidized  copper  is  in  the  Cu(I)  state 
through  moderate  anodic  potentials  [8,34-42].  Copper  corrodes  slowly  in  aqueous 
acid  solutions  free  of  oxidizing  agents,  but  the  presence  of  dissolved  oxygen  causes 
the  corrosion  rate  to  increase  substantially  [14].  The  anodic  behavior  of  copper 
has  been  found  to  be  independent  of  pH  in  the  acid  range  [22,  34,  41]. 


Lee  and  Nobe  [35]  suggested  a reaction  path 

Cu+cr  ^ CuCl  + e-  (2.10) 

cuci  + cr  ^ CuCi2  (2.ii) 

whereas  Faita  et  al  [22]  describe  a reaction  path 

Cu  + 2d-  r=*  CuCl^  + e"  (2.12) 

Cu  + 3Cr  ^ CuCl^  (2.13) 


and  performed  calculations  based  on  solubility  constants  and  activities  to  conclude 
that  CuCl^-  is  the  prevailing  soluble  product  in  0.5M  NaCl  solutions.  The  exis- 
tence of  CuCl^  is  reported  by  others  [34,  37]  and  is  supported  by  equilibrium 
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constants  for  copper  and  its  chloride  complexes  [43].  Smyrl  and  Stephenson  [14] 
reported  that  CuClJ  is  dominant  at  low  concentrations  of  chloride  with  other 
complexes  appearing  at  high  Cl-  concentrations. 

In  the  exponential  region  near  rest  potential,  reported  Tafel  slopes  vary  signif- 
icantly. The  differences  in  Tafel  slopes  reported  in  the  literature  may  have  been 
caused  by  the  presence  a film  or  a difference  in  the  character  of  a film.  The  values 
60  [34,  36,  44],  62  [40],  65  and  158  [45],  68-91  [46],  and  120  [37]  mV/decade  have 
been  found. 

At  least  a weak  square  root  dependence  of  current  on  rotation  speed  has  been 
reported  [22,  14]  at  potentials  near  open  circuit,  providing  evidence  for  a hydro- 
dynamic  diffusion  resistance.  Other  evidence  for  this  mass  transfer  effect  has  also 
been  identified  [34,  36,  37,  39,  40,  41].  Removal  of  CuCl^  from  the  surface  has 
been  found  to  account  for  the  diffusion  resistance  [34,  35,  36,  40,  41].  Smyrl  [36] 
calculated  the  diffusion  coefficient  of  CuClj  through  impedance  experiments  to 
be  5.68  x 10-6  cm2/s.  The  cathodic  process,  oxygen  reduction,  is  reported  to  be 
kinetically  controlled  by  Faita  et  al  [22].  Smyrl  and  Stephenson  agree  and  [14] 
reported  that  the  corrosion  rate  is  controlled  by  the  rate  of  reduction  of  dissolved 
oxygen  at  only  5-10%  of  the  diffusion  limiting  current  of  O2. 

Precipitation  of  CuCl  has  been  reported  to  give  protection  to  the  copper  sur- 
face at  low  anodic  currents  [22,  34,  37,  39,  42,  47,  48]  and  can  grow  to  considerable 
thicknesses  (3  micron  [47])  through  its  high  ionic  conductivity  [37].  An  increase 
in  flow  rate  resulted  in  film  thinning  [37].  The  polarization  resistance  obtained 
by  extrapolation  of  the  low  frequency  real  intercept  from  impedance  data  [22]  de- 
creases with  increasing  rotation  speed  which  the  authors  attributed  to  a convective 
diffusion  limiting  contribution.  However,  film  thinning  would  cause  similar 
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behavior.  Oscillations  have  been  seen  in  the  current  plateau  regime  [34,  41,  48]. 
Some  attribute  the  phenomenon  to  the  formation  and  dissolution  of  CuCl  on  the 
metal  surface  [48],  but  a mechanism  suggested  by  Lai  and  Thirsk  [18]  for  neutral 
chloride  solutions  may  apply.  Smyrl  does  not  consider  the  existence  of  a film  in 
his  work  [36]. 

At  the  current  plateau  of  current-potential  curves,  significant  concentrations  of 
Cu++  have  been  detected  through  ring  disk  experiments  [34,  35].  A mechanism 
for  cupric  ion  formation  was  proposed  [35,  42] 

CuCl  + Cl"  ^ (CuCl2-)surf-^(CuCl2)buik  (2.14) 

CuCl  + Cl"  (CuCl2  )surf  -»  Cu++  + 2C1"  + e~  (2.15) 

The  reaction  scheme  does  not  consider  the  cuprous  ion  and  its  two  chloride  complex 
equilibria  or  the  presence  of  the  cupric  ion  chloride  complex. 

All  of  the  mechanistic  studies  of  copper  in  acidic  chloride  environments  have 
simplified  the  system  by  including  only  the  processes  and  species  that  were  consid- 
ered important.  None  of  the  authors  has  attempted  to  include  all  or  even  most  of 
the  species  present  in  the  system.  For  example,  the  effects  of  the  cuprous  ion  and 
its  two  chloride  complexes  known  to  be  present  in  significant  concentrations  [43] 
have  not  previously  been  explicitly  included  in  a model  or  reaction  scheme.  If  all 
of  the  important  species  are  not  accounted  for,  then  it  may  not  be  possible  to 
distinguish  between  the  resulting  models  or  reaction  mechanisms  by  comparison 
with  experimental  data. 
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2.4.2  Neutral  Chloride  Solutions 

The  dissolution  mechanism  for  copper  in  neutral  chlorides  has  been  reported  to 
be  the  same  as  that  found  for  copper  in  acid  [18,  41,  49,  50].  Without  anodic  bias  in 
de-aerated  solutions,  copper  dissolution  rates  have  been  found  to  be  small  [16,  51]. 
The  corrosion  rate  of  copper  in  aerated  solutions  (about  19.6//A  cm-2)  was  found 
to  be  roughly  an  order  of  magnitude  larger  than  in  deoxygenated  solutions  [51], 
but  the  presence  of  oxygen  in  neutral  chloride  solutions  is  reported  to  have  little 
effect  on  the  anodic  dissolution  of  copper  [18]. 

A copper  disk  electrode  rotating  at  lOOOrpm  in  3.4%  NaCl  was  reported  to 
corrode  at  30/iA  cm-2  [50]  and  at  20^A  cm-2  at  1500rpm  in  1M  NaCl  [51].  The 
measured  oxygen  limited  value  [50]  was  100/jA  cm-2  at  lOOOrpm,  which  can  be 
compared  to  310/iA  cm-2  for  the  cathodic  current  density  based  on  the  limiting 
value  calculated  by  the  Levich  equation  (see  equation  3.1).  After  670  hours,  the 
corrosion  rate  was  about  2-5/iA  cm-2  or  2-5mpy.  Tafel  slopes  of  60  mV/dec  [18,  41] 
and  58  mV/dec  [49,  52]  have  been  reported. 

The  formation  of  a cuprous  oxide  corrosion  product  is  indicated  by  Pourbaix 
diagrams  [7,  8]  and  has  been  observed  [50,  53].  Hack  and  Pickering  [50]  state  that 
the  formation  of  the  film  strongly  depresses  the  cathodic  reactions  and  weakly 
depresses  the  anodic  reactions,  indicating  a predominantly  oxygen  reduction  con- 
trolled process.  Cathodic  bias  did  not  change  the  impedance  spectrum  whereas 
anodic  bias  changed  the  response  significantly.  This  supports  the  conclusion  that 
oxygen  diffusion  limits  the  process  as  found  by  others  [54].  A duplex  film  [49,  52,55- 
58]  of  loosely  adherent  porous  cupric  hydroxy  chloride  atacamite  (Cu2(OH)3C1) 
[57,  59]  on  a tightly  adherent  inner  cuprous  oxide  layer  has  been  identified.  Strip- 
ping of  the  porous  layer  and  Pd  coating  of  the  inner  layer  on  90-10  copper  nickel 
resulted  in  oxygen  diffusion  limited  current  [60,  61].  This  led  to  the  conclusion  that 
the  oxide  is  a poor  catalyst  resulting  in  low  corrosion  rates.  Poor  ionic  or  electronic 


15 


conductivity  within  the  inner  corrosion  product  layer  was  therefore  ruled  out.  The 
same  experiment  conducted  on  pure  copper  did  not  increase  the  corrosion  rate 
[50,  52].  The  conclusion  was  that  the  inner  copper  oxide  provides  the  protection, 
probably  by  its  low  electronic  and  ionic  conductivity.  Ion  transfer  across  the  oxide 
was  found  to  be  the  rate  determining  step  for  corrosion  by  others  [59].  A claim  was 
made  that  some  hydroxy  chloride  needs  to  form  on  the  inner  layer  of  the  copper  to 
develop  a protective  nature  [50].  The  authors  did  not  consider  that  this  observa- 
tion may  have  resulted  from  an  area  effect  where  oxygen  reduction  takes  place  only 
at  the  base  of  the  pores.  Neither  Pd  coating  of  the  outer  corrosion  product  surface 
nor  stripping  of  these  products  increased  the  corrosion  rate.  Diffusion  resistance 
of  oxygen  through  the  pores  of  the  porous  layer  has  also  been  reported  to  decrease 
the  corrosion  rate  [49]. 

The  corrosion  of  copper  has  also  been  reported  to  be  determined  by  the  rate 
of  mass  transport  of  CuCl2  [41,  51,  62]  with  oxygen  under  activation  control  [58, 
51,  62].  The  corrosion  rate  was  found  to  be  limited  by  the  diffusion  of  the  complex 
through  a hydrodynamic  boundary  layer.  Bacarella  and  Griess  [41]  developed  a 
simple  model  and  calculated  that  Cu20  should  precipitate  at  a corrosion  rate  of 
20mpy.  Their  experiments  showed  no  evidence  of  solid  corrosion  products  at  any 
current  employed  which  ranged  from  open  circuit  up  to  about  1mA  cm-2.  Film- 
free  dissolution  of  the  metal  in  de- aerated  chlorides  as  Cu+  has  been  reported  [23]. 
A possible  oxide  film  has  been  reported  to  be  unstable  and  soluble  in  water  [55]. 

At  strongly  anodic  potentials,  the  formation  of  a CuCl  film  has  also  been  re- 
ported after  a critical  film  thickness  or  current  density  is  reached  and  coincides 
with  the  breakdown  of  apparent  Tafel  behavior  [18,  44],  At  these  potentials,  Cu++ 
has  been  detected  [23]  and  oscillations  have  been  observed  [18].  The  periodic 
phenomenon  was  attributed  to  disruption  or  modification  of  a compact  cuprous 
chloride  film  by  cupric  ions  formed  when  the  chloride  deposit  reaches  a critical 
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thickness.  Since  the  outside  of  the  film  is  continuously  dissolved  by  the  adjacent 
electrolyte,  the  film  thickness  is  reduced,  and  the  condition  when  the  metal  dis- 
solves as  a cuprous  ion  is  restored.  The  hypothesis  is  difficult  to  confirm  however, 
since  surface  analysis  cannot  detect  cupric  species  under  the  cuprous  chloride  film. 

2.4.3  Alkaline  Chloride  Solutions 

Copper  dissolves  as  Cu+  and  complexes  to  form  CuCl^  and  CuClf~  as  it  does 
in  acid  and  neutral  environments  [19,  22,  33].  However,  a decrease  in  corrosion 
rate,  and  the  influence  of  an  oxide  film  at  anodic  potentials  has  been  seen  at  a pH 
of  about  8.5  [19,  22]  in  0.5M  NaCl  solutions. 

A protective  layer  of  solid  Cu20  has  been  observed  [18,  19,  20,  21,  22,  23]  on 
copper  in  alkaline  chloride.  Cuprous  oxide  precipitates  by  the  reaction  [22], 

2Cu+  + OH-  — Cu20  + H+  (2.16) 

The  dissolution  rate  of  the  copper  may  then  determined  by  the  dissolution  rate  of 
the  oxide  [19,  22].  Formation  of  a passive  film  has  been  found  to  be  more  difficult 
with  increasing  Reynolds  number  [9,  19,  62].  In  sea  water,  Cu20  usually  has  a 
basic  copper  chloride  in  the  top  layer  of  the  corrosion  product  [63]. 

The  total  reaction  for  the  dissolution  and  oxygen  reduction  processes  suggests 
an  alkalization  of  the  interface  which  promotes  formation  of  Cu20  [19,  22]: 

2Cu+^02  + H20+xCr  2CuClix"1)-  +20H".  (2.17) 

Fiori  et  al  [19]  calculated  a surface  pH  of  8.9  where  the  bulk  pH  was  8.3. 

At  high  current  densities,  the  oxide  layer  is  destroyed  [18].  A CuCl  film  has 
been  reported  at  the  limiting  plateau  of  a current  potential  curve  [18,  20].  CuO 
or  Cu(OH)2  has  also  been  seen  in  the  outer  layer  [20].  Free  corrosion  potentials 
decrease  with  increasing  pH,  and  a decrease  in  exchange  current  density  results  [19]. 
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A sudden  change  in  free  corrosion  potential  is  seen  at  a pH  of  8.5  supporting  the 
claim  of  a change  in  the  mechanism  of  anodic  dissolution  [19]. 


2.4.4  Physico-Electrochemical  Models 

The  mechanism  of  copper  dissolution  has  been  described  by  many  physico— 
electrochemical  models.  All  of  the  models  have  assumed  a simplified  electrolyte 
composition,  and  include  only  the  electrochemical  and  transport  processes  thought 
to  be  dominant. 

The  earliest  model  [41]  is  based  on  the  reaction 


Cu  + 2Cr  ^ CuCl7  + e‘ 


(2.18) 


which  was  assumed  to  be  at  equilibrium.  The  flux  of  the  cuprous  chloride  complex 
was  given  by  Fickian  diffusion, 


. _ FT>[CuC12~] 


Application  of  the  Nernst  equation  leads  to 

FD (FE\ 


(2.19) 


l = 


6 lCr]leXt\RTj- 


(2.20) 


Tribollet  and  Newman  [64]  included  the  effect  of  a finite  dissolution  rate 

(l-a)FE\ 


i = Ma[Cr]’exp  (^)  - Ffcc[CuClJ]exp  h 
Use  of  equation  2.19  gives 

FX[  Cl-]2exp(^) 


RT 


(2.21) 


(2.22) 


l + ^^c[CuCl2-]exp(-(1-^FE) 

The  formation  of  the  cuprous  chloride  complex  has  been  treated  as  a two  step 
reaction  [35,  38] 


Cu  + 2C1“  ^ CuCl  + e" 
CuCl  + Cl~  ^ CuCl2 


(2.23) 

(2.24) 
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where  the  first  reaction  was  assumed  to  be  at  equilibrium 


/ TP  JP  \ 

fci[cr]exp  —J  = fc.ifCuCl] 


(2.25) 


Use  of  equation  2.19  gives 

. ^[C11iexp(£f) 

1 1 + ~ 

1 ^ D 

The  model  developed  by  Smyrl  [36]  for  acid  chloride  solutions  includes  the  disso- 
lution of  copper  and  the  subsequent  formation  of  a cuprous  chloride  complex  at 
equilibrium  with  the  cuprous  ion 


Cu 

Cu+  + e 

(2.27) 

Cu+  + 2cr 

— 

CuCl2" 

(2.28) 

Keq  = 

[CuCl^] 

= 6.96  x 1024 

(2.29) 

[Cu+][C1-]2 

Use  of  equation  2.19  and  a Butler- Volmer  expression  for  copper  dissolution  gave 

Fka  exp  (g*gg) 


i — 


\ _j_ 


(=*P) 


(2.30) 

fca[Cl-]2D  eXP 

The  model  developed  by  Hauser  and  Newman  [65-68]  builds  on  the  work  of  Smyrl 
[36].  The  diffusion  boundary  layer  was  divided  into  two  regions.  Near  the  elec- 
trode surface  a homogeneous  reaction  zone  was  defined  where  concentrations  are 
distributed  according  to  the  rate  of  the  complexing  reaction  and  diffusion.  The 
second  zone  assumed  that  the  homogeneous  reaction  was  equilibrated,  and  con- 
vection and  diffusion  were  included.  Stefan-Maxwell  concentrated  solution  theory 
was  used  [12].  The  influence  of  a charge  transfer  resistance  was  not  included  in 
the  model  and  direct  comparison  with  experimental  data  was  not  made  [68]. 


2.5  Models  for  Transport  Across  Corrosion  Product  Films 

The  transport  of  ionic  and  electronic  current  is  a part  of  the  corrosion  mecha- 
nism for  conditions  under  which  a film  exists  on  copper.  Since  the  influence  of  a 
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film  has  been  identified,  its  behavior  must  be  included  as  part  of  a model  for  the 
entire  corrosion  process.  Several  models  have  been  developed  to  describe  trans- 
port across  oxide  films.  The  models  use  either  diffusion  of  ions  (or  vacancies)  or 
a conduction  mechanism.  Chao  et.  al.  [69]  have  reviewed  several  theories  for  the 
growth  kinetics  of  passive  films,  and  developed  a more  convincing  theory  based  on 
the  diffusion  of  point  defects  through  the  oxide.  Young  [70]  and  Dignam  [71]  have 
described  a theory  for  high  field  conduction,  and  several  authors  have  postulated 
low  field  conduction  for  films  [72-74]. 

An  anodic  leakage  current  (electronic  conduction)  often  occurs  in  parallel  with 
ionic  conduction  [69,  70]  and  may  result  in  oxygen  evolution  [70]  although  a metal 
deposition  reaction  or  the  reduction  of  cupric  ions  (for  the  case  of  copper  corrosion) 
could  also  occur. 

2.5.1  Point  Defect  Models 

Chao  et  al.  [69]  developed  a film  growth  model  based  on  point  defects  to 
describe  the  behavior  of  anodic  passive  films.  The  film  was  assumed  to  be  an  oxide 
of  composition  MOn/i.  The  presence  of  electrons  (e~),  holes  (h+),  metal  vacancies 
(I'm*-))  and  oxide  vacancies  (lo++ ) was  considered.  The  film  was  assumed  to  have 
a semiconducting  nature  where  electrons  and  holes  are  at  their  equilibrium  states 
in  the  film  matrix,  and  the  electrochemical  reactions  involving  these  two  species  are 
rate  controlled  at  either  the  metal/film  or  the  film/solution  interfaces.  Conversely, 
transport  of  metal  and  oxide  vacancies  (film  growth)  was  assumed  to  be  the  rate 
limiting  step  for  processes  involving  these  species.  This  implies  that  the  vacancies 
are  at  equilibrium  at  the  metal/film  and  film/solution  interfaces. 

Chao  et  al.  [75]  used  his  point  defect  model  to  develop  an  expression  for  the 
impedance  response  of  a passive  oxide  film.  The  total  current  was  assumed  to 
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consist  of  four  components 

Itotai  = h-  + + IvQ++  + IvMn-  • (2.31) 

The  impedance  is  therefore  given  by 

Ztotai  = Z7-  + Zh+  + ZVo++  + Zvhn-  ■ (2-32) 

Electron  and  hole  impedances  were  considered  to  be  modeled  by  pure  resistors. 
This  approach  ignores  any  semiconducting  nature  of  the  oxide.  Metal  ion  vacancies 
and  oxide  vacancies  were  assumed  to  move  through  the  film  by  Fickian  diffusion 
and  migration.  The  result  is  a Warburg  impedance  in  parallel  with  the  combined 
electrical  resistance  of  electron  and  hole  transport. 


2.5.2  High  Field  Conduction 


Conduction  through  an  oxide  can  be  represented  by  the  function  [76,  77] 


i = 2 A sinh 


(2.33) 


where  i is  the  faradaic  current  associated  with  metal  oxidation,  A and  /3  are  tem- 
perature dependent  constants,  and  E is  the  field  strength  defined  by 


E = (2.34) 

where  rj  is  the  overpotential  for  metal  oxidation,  6 is  the  film  thickness,  and  T]a 
allows  for  an  interfacial  potential  drop  which  is  commonly  assumed  to  be  zero  [71]. 
The  expression  can  also  be  represented  in  exponential  form 


i = A 


(2.35) 


When  the  quantity  /?E/<5  is  large,  one  term  will  dominate  resulting  in  the  high  field 
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expression  used  by  several  investigators  [70,  71,  76,  77] 

i~Aexp(/?E)  (2.36) 

Dignam  [71]  also  reviewed  the  microscopic  origin  of  equation  2.36. 

The  high  field  conduction  model  has  been  applied  to  anodically  formed  films  on 
iron  in  chloride  solution  [78,  79].  The  film  was  assumed  to  have  a duplex  structure 
where  ferrous  ions  migrate  through  an  inner  layer  by  high  field  conduction,  and 
move  through  an  outer  porous  layer  through  ionic  low  field  conduction. 


2.5.3  Low  Field  Conduction 


When  the  quantity  f3E/8  of  equation  2.35  is  small,  the  two  terms  will  be  about 
the  same  size  making  the  current  response  to  potential  linear.  A Taylor  series 
verifies  this  low  field  approximation 


i 
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i 
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(2.37) 

(2.38) 


When  the  second  term  is  sufficiently  small,  equation  2.38  reduces  to  Ohm’s  law. 

Ohmic  ionic  conduction  has  been  observed  by  several  investigators.  Isaacs  [73] 
observed  ohmic  conduction  across  a resistive  layer  on  stainless  steel.  He  reported 
a 108fi-cm  resistivity  and  a film  thickness  dependent  on  electrode  potential  and 
diffusion  rate  of  metal  ions  from  the  layer /solution  interface.  A resistance  of  105fi- 
cm  and  104fl-cm  was  later  reported  for  SS302  and  Ni  respectively  whose  thickness 
increases  linearly  with  potential  [74].  This  approach  has  also  been  used  for  metal 
chloride  films  on  Fe,  Ni,  and  Cr  [72]. 


CHAPTER  3 

EXPERIMENTAL  METHODS 


Several  types  of  electrochemical  experiments  were  conducted  on  copper  rotating 
disk  electrodes.  This  chapter  describes  the  electrodes,  their  surface  preparation, 
the  electrolyte,  the  instrumentation,  and  the  experimental  procedures. 

3.1  Electrodes 

The  copper  electrodes  used  for  experiments  were  99.999+%  pure.  Rods  7mm  in 
diameter  and  15mm  in  length  were  annealed  in  a tube  furnace  under  argon  at  500°  C 
for  five  to  eight  hours,  and  allowed  to  cool  in  the  furnace.  Heat  treatments  were 
performed  under  argon  to  prevent  diffusion  of  contaminant  gases  into  the  metal.  It 
is  particularly  important  that  oxygen  be  excluded  because  it  can  indirectly  cause 
hydrogen  embrittlement  [10]. 

The  rods  were  press  fitted  into  a Teflon  casing  with  a stainless  steel  shaft 
exposing  only  the  face  of  the  electrode.  The  electrodes  were  wet  polished  on  a 
Buehler  Ecomet  III  polisher.  The  exposed  surface  was  mechanically  polished  with 
increasingly  finer  grades  of  abrasive  polishing  sheets  down  to  600  grit  followed  by 
10  micron  silica  paper.  Alumina  powder  of  1,  0.3,  and  0.05  micron  size  was  used 
to  produce  a mirror-like  surface.  Samples  that  retained  scratches  after  several 
attempts  to  achieve  a smooth  surface  were  polished  with  diamond  paste.  The 
electrodes  were  cleaned  ultrasonically  in  de-ionized  water  for  one  minute.  Time 
between  surface  preparation  and  experimental  runs  were  kept  as  short  as  possible  to 
reduce  the  extent  of  oxide  formation.  Freshly  prepared  specimens  have  been  seen 
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to  carry  C112O  films  between  70  and  300A  thick  [26].  More  aggressive  cleaning 
probably  would  not  have  improved  the  surface  [80]. 

3.2  Electrolyte 

Solutions  were  prepared  with  certified  ACS  reagent  grade  NaCl,  NaOH,  and 
HC1  to  produce  0.5M  chloride  concentration  and  the  desired  pH.  De-ionized  water 
was  of  at  least  2 Mficm  quality.  This  water  quality  was  considered  to  be  adequate 
since  the  use  of  triply  distilled  or  de-ionized  water  of  better  than  1 MOcm  has 
previously  been  shown  to  have  no  effect  on  copper  dissolution  behavior  [41].  Solu- 
tions were  de-aerated  by  sparging  argon  for  several  hours,  and  a blanket  of  argon 
was  maintained  while  running  experiments.  Aeration  was  achieved  by  drawing  air 
from  the  laboratory  with  a peristaltic  pump,  scrubbing  for  water  and  C02  with 
Drierite  and  Ascerite,  and  bubbling  through  the  solution.  The  pH  was  maintained 
with  a Cole-Parmer  model  5652-10  pH  controller. 

3.3  Experimental  Apparatus  and  Instrumentation 

The  experimental  cell  was  a 400  mL  beaker  fitted  with  two  opposing  side  cham- 
bers connected  by  ports  with  12mm  inside  diameter.  A saturated  calomel  reference 
electrode  (SCE)  was  placed  in  one  chamber,  and  a platinum  foil  counter  electrode 
of  dimensions  5 x 2.5  x 0.01  cm  was  placed  in  the  other  chamber.  The  rationale 
behind  positioning  the  electrodes  in  separate  chambers  lies  in  the  requisites  for 
calculation  of  ohmic  resistance.  Ohmic  drop  is  the  portion  of  applied  potential 
attributable  to  solution  resistance  and  depends  on  solution  conductivity,  distance 
between  working  and  reference  electrodes,  and  radial  position  on  the  working  elec- 
trode. Since  the  resistance  of  aqueous  electrolytes  is  relatively  low,  the  majority 
of  IR  drop  can  be  assumed  to  occur  near  the  working  electrode  surface.  Therefore, 
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a distance  between  disk  and  reference  electrode  on  the  order  of  centimeters  is  nec- 
essary and  sufficient  to  allow  use  of  calculations  for  estimation  of  ohmic  potential 
drop  between  a disk  electrode  and  a reference  electrode  located  infinitely  far  from 
the  disk.  Newman  [12,  81]  has  studied  the  character  of  ohmic  drop  at  a rotating 
disk  electrode,  and  Lowry  [82]  has  discussed  its  measurement  in  detail. 

A mirror  was  placed  under  the  cell  to  inspect  the  electrode  surface  for  bubbles 
before  the  start  of  each  experiment.  For  experiments  conducted  in  de-aerated  so- 
lutions, the  tops  of  the  three  chambers  were  covered  with  parafilm.  The  electrolyte 
was  continuously  sparged  with  argon  except  during  run  time  when  it  was  placed 
just  above  the  solution  to  create  an  argon  blanket.  For  aerated  solutions,  the  tops 
were  left  open  and  bubbled  with  air  scrubbed  for  C02.  While  running,  the  desired 
pH  was  maintained  with  a Cole-Parmer  model  5652-10  pH  controller.  The  cell 
temperature  was  controlled  with  a water  bath  consisting  of  a Nalgene  tub  and  a 
Fisher  Scientific  Isotemp  Immersion  Circulator  Model  70.  All  experiments  were 
run  at  25°  C. 

3.3.1  The  Rotating  Disk  Electrode 

Transport  of  reactive  species  to  and  from  the  electrode  surface  was  controlled 
with  a rotating  disk  electrode.  The  hydrodynamic  and  convective  diffusion  equa- 
tions have  been  solved,  and  the  system  is  convenient  to  use.  The  distinct  advantage 
of  the  rotating  disk  system  is  that  the  normal  component  of  the  fluid  velocity  is 
independent  of  the  radial  position;  i.e.,  the  electrode  surface  is  uniformly  accessible 
to  mass  transfer  [11,  12,  83].  Levich  [83]  solved  the  equations  of  convective  diffu- 
sion analytically  for  the  rotating  disk  and  obtained  an  expression  for  the  limiting 
current 

iiim  = 0.62  nFAD2lzv-ll&uJdlc  (3.1) 

The  diffusion  limited  current  has  a square  root  dependence  on  rotation  speed. 
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A Pine  analytical  rotator  was  used  for  all  experiments.  A rotation  speed  of 
1000  rpm  was  used  except  when  studying  the  effect  of  rate  of  revolution  on  current. 
The  junction  between  the  rotating  brass  sleeve  and  the  stationary  graphite  brush 
was  kept  clean  and  electrically  noiseless  by  continuously  cleaning  with  a kimwipe 
dampened  with  ethanol.  The  sleeve  was  also  periodically  cleaned  with  fine  emery 
paper.  Adequacy  of  approach  was  confirmed  by  noise  analysis  of  the  data  [4]. 

3.3.2  The  Impinging  Jet 

One  experiment  was  run  using  the  impinging  jet  apparatus  used  by  Diem  [84]. 
An  electrode  5cm  in  diameter  was  used  with  a 6.35mm  ID  jet.  The  electrode 
was  polished  using  the  same  procedure  that  was  used  for  the  rotating  disks.  The 
electrode  profile  was  measured  after  the  experiment  by  using  a DekTak  apparatus. 

3.3.3  Direct  Current  Experiments 

Potentiostatic  and  Potentiodynamic  experiments  were  conducted  with  a PAR 
273  Potentiostat/Galvanostat  controlled  by  a personal  computer.  The  experimen- 
tal setup  is  shown  in  Figure  3.1. 

3.3.4  Impedance  Experiments 

A Schlumberger  Solartron  1250  frequency  response  analyzer  and  1286  electro- 
chemical interface  were  used  for  impedance  experiments.  A personal  computer 
and  ZPLOT©  software  was  used  to  control  the  equipment  and  record  data.  The 
experimental  apparatus  is  shown  in  Figure  3.2. 
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Figure  3.1:  Experimental  apparatus  for  DC  experiments. 
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Figure  3.2:  Experimental  apparatus  for  impedance  experiments. 
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3.4  Experimental  procedure 

A variety  of  potentiostatic,  chronopotentiometric,  and  impedance  experiments 
were  performed.  The  effects  of  time,  pH,  and  rotation  speed  were  examined. 

The  applied  voltage  perturbation  for  impedance  experiments  has  several  vari- 
able parameters.  Frequency  modulation  for  impedance  is  limited  by  the  instru- 
mentation at  the  high  end  and  by  response  to  noise  ratio  as  well  as  time  evolution 
of  the  electrode  on  the  low.  The  electronics  allow  a maximum  frequency  of  65  kHz; 
all  experiments  were  begun  at  this  frequency  and  swept  downward  logarithmically 
at  10  steps/decade  to  the  lowest  frequency  limited  by  noise,  usually  0.1  Hz.  A high 
amplitude  increases  signal  to  noise,  but  the  system  must  be  kept  within  the  linear 
response  regime.  Impedance  response  was  reproducible  with  sinusoid  amplitudes 
between  about  5 and  20  mV  for  most  experimental  conditions.  The  Kramers- 
Kronig  relations  confirmed  consistency  at  20  mV.  Integration  time  spanned  several 
cycles.  A measurement  delay  of  several  cycles  was  also  used  to  ensure  that  the 
response  measured  was  caused  solely  from  the  frequency  of  interest. 


CHAPTER  4 

RESULTS  OF  EXPERIMENTS 

Electrochemical  data  were  collected  from  copper  in  aerated  chloride  solutions 
at  several  pH  values.  Galvanostatic,  potentiostatic,  potentiodynamic,  and  electro- 
chemical impedance  spectroscopy  (EIS)  experiments  were  performed. 

EIS  as  well  as  traditional  electrochemical  experiments  were  conducted  using 
a copper  rotating  disk.  Rotation  speed  studies  of  experimental  impedance  spec- 
troscopy data  for  a copper  disk  electrode  at  anodic  potentials  in  alkaline  chloride 
solutions  indicated  that  a mass  transfer  resistance  was  significant.  Since  the  re- 
sistance did  not  correlate  well  with  changes  in  disk  rotation  speed,  a solid  film 
(which  was  visually  observed  on  the  surface)  was  believed  to  contribute  to  the  im- 
pedance response  of  the  electrode.  The  current  from  steady  state  experiments  also 
did  not  follow  the  behavior  expected  for  systems  in  which  mass  transfer  through 
a hydrodynamic  boundary  layer  controls  current. 

4.1  DC  Experiments 

A change  in  the  measured  open  circuit  potential  with  time  suggests  the  growth 
or  decay  of  one  or  more  films.  The  corrosion  potential  transients  for  copper  im- 
mersed in  solutions  of  four  different  pH  values  are  shown  in  Figure  4.1.  The  po- 
tential for  copper  in  acid  solution  is  -308mV(SCE)  initially,  rises  rapidly  at  about 
2mV/min  for  30min  and  then  slowly  continues  to  increase.  In  neutral  solutions  the 
potential  starts  at  -275mV,  falls  and  rises  during  the  first  30min,  and  then  exhibits 
a spike  suggesting  film  non-stationarity.  The  spike  was  reproduced  by  a second 
measurement.  At  pH  9.5,  the  corrosion  potential  starts  at  -215mV,  increases  for 
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about  15min,  and  slowly  decreases.  At  pH  11.5,  the  potential  increases  sharply 
over  the  first  few  minutes  and  remains  constant  at  -150mV.  The  results  of  these 
measurements  correlate  with  the  changes  seen  in  sequential  impedance  spectra 
collected  at  open  circuit  potentials. 

A potentiodynamic  scan  was  performed  with  copper  in  0.5M  Cl”  solution  at 
pH  1 and  is  shown  in  Figure  4.2.  Potential  sweeps  have  been  previously  performed 
at  other  pH  values  [85].  During  the  early  part  of  the  scan  where  current  ranges 
from  zero  to  45mA/cm2,  the  curve  exhibits  apparent  Tafel  behavior  which  would 
be  expected  for  a film-free  copper  surface.  The  current  drops  at  potentials  above 
this  region  which  suggests  the  formation  of  a film.  During  the  experiment,  the 
formation  of  the  film  was  observed  visually  at  45mA/cm2.  It  formed  at  the  outer 
periphery  of  the  electrode  and  grew  radially  until  the  entire  disk  was  covered.  It 
will  be  shown  in  this  work  that  the  film  formed  was  CuCl.  At  higher  potentials, 
a current  plateau  is  reached  which  is  generally  accepted  to  be  caused  by  a CuCl 
film  [22,  34,  37,  39,  42,  47,  48].  The  oscillations  support  the  conclusion  that  a 
salt  film  exists.  On  the  reverse  sweep,  the  apparent  Tafel  behavior  returns  at 
about  20mA/cm2.  The  critical  current  where  a transition  between  Tafel  and  film 
influenced  behavior  occurs  is  lower  on  the  reverse  sweep  than  on  the  forward  sweep. 
Two  factors  may  explain  the  hysteresis.  The  first  is  that  the  precipitation  of  a 
film  relies  upon  supersaturation  of  the  reactants.  Since  the  concentration  of  the 
reactants  at  the  surface  depends  on  the  current,  it  follows  that  the  current  required 
to  form  the  film  is  larger  than  the  current  at  which  it  dissolves.  The  second  reason 
is  that  at  a sweep  rate  of  lOmV/s,  a hysteresis  may  occur  because  the  kinetics 
of  film  growth  or  decay  are  slower  than  the  rate  of  potential  change.  A slower 
sweep  rate  would  eliminate  this  effect.  However,  too  much  of  the  electrode  may 
be  dissolved  during  a slow  sweep  resulting  in  roughening  of  the  surface  affecting 
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Time,  min 


Figure  4.1:  Corrosion  potential  Ecorr  with  time  for  Cu  in  aerated  0.5M  Cl-  so- 
lutions at  lOOOrpm.  a)ph=1.0,  bl  and  b2)  replicate  runs  at  pH=7.0,  c)  pH=9.5, 
d)pH=11.5. 
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both  surface  area  and  current  distribution.  More  importantly,  the  geometry  of  the 
rotating  disk  will  create  a recessed  electrode  causing  edge  effects  which  will  affect 
the  current /potential  distribution  through  the  hydrodynamics  of  the  disk. 

To  examine  further  the  breakdown  of  apparent  Tafel  behavior,  two  potential 
step  experiments  were  conducted  and  are  shown  in  Figure  4.3.  A -30mV(SCE) 
potential  should  lie  within  the  apparent  Tafel  region.  A step  to  this  potential  re- 
sulted in  a constant  12mA/cm2  current  which  correlates  with  the  current  measured 
during  the  sweep  experiment.  The  current  responded  quickly  to  the  potential  step 
and  remained  constant  over  two  minutes  giving  no  sign  of  influence  from  a film. 
At  150mV,  the  current  initially  rose  to  40mA/cm2  which  is  close  to  the  current 
at  150mV  on  the  forward  sweep  of  the  potentiodynamic  sweep  of  Figure  4.2.  The 
current  then  rapidly  decreased,  presumably  because  a salt  film  precipitated.  The 
initial  formation  of  the  salt  film  causes  a high  mass  transfer  resistance  which  de- 
creases the  current  allowing  part  of  the  film  to  dissolve.  Finally,  a steady  state 
current  and  film  thickness  is  achieved.  The  minimum  may  have  been  influenced 
by  the  radial  film  growth  which  results  from  the  radial  dependence  of  current  and 
potential  on  a rotating  disk  electrode. 

4.2  Electrochemical  Impedance  Experiments 

A series  of  EIS  experiments  were  conducted  on  a copper  rotating  disk  to  ex- 
amine the  influence  of  pH,  immersion  time,  rotation  speed,  and  potential  bias.  All 
impedance  data  are  presented  in  three  plots.  The  first  is  the  impedance  plane  plot 
also  known  as  a Nyquist  or  complex  plane  plot  where  the  imaginary  impedance, 
Zj,  is  plotted  versus  the  real  impedance,  Z,.  This  plot  is  most  popular  among 
corrosionists.  However,  the  perturbation  frequency  is  not  evident  on  impedance 
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Potential,  mV  (SCE) 


Figure  4.2:  Current  as  a function  of  Potential  for  Cu  in  aerated  0.5M  Cl-  solution 
and  pH=l  at  lOOOrpm  disk  rotation  speed.  Sweep  rate  was  lOmV/s.  Arrows  show 
the  sweep  direction.  The  deviation  from  Tafel  behavior  is  caused  by  film  formation. 
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Figure  4.3:  Two  potential  step  experiments  for  Cu  in  aerated  0.5M  Cl  solutions 
and  pH=l  at  lOOOrpm  disk  rotation  speed.  Current  at  150mV  suggests  film  growth. 
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plane  plots.  The  real  and  imaginary  impedance  components  versus  frequency  allow 
the  separation  and  size  of  the  time  constants  associated  with  a process  to  be  more 
easily  identified. 

Figures  4.4,  4.5,  and  4.6  show  seven  consecutive  scans  of  the  impedance  response 
of  copper  in  0.5M  Cl-  solutions  with  pH  1.  Figure  4.4  is  the  impedance  plane 
plot,  and  Figures  4.5  and  4.6  show  the  real  and  imaginary  impedance  components 
as  a function  of  frequency.  The  apparent  polarization  resistance,  Zr(f  — > 0)  — 
Zr(f  — ► oo),  decreases  with  time.  This  trend  corresponds  to  the  changes  seen  in 
the  corrosion  potential  with  time  of  Figure  4.1.  An  increase  in  surface  area  through 
roughening  would  cause  a decrease  in  the  polarization  resistance,  but  the  order  of 
magnitude  change  in  the  resistance  is  not  likely  to  have  resulted  from  this  source 
alone.  Another  possibility  is  that  an  oxide  film  existed  on  the  copper  surface  at 
the  time  of  immersion  which  slowly  dissolved.  Figures  4.7,  4.8,  and  4.9  show  four 
impedance  scans  of  the  same  copper  in  acidic  electrolyte  system  at  long  immersion 
times.  Over  the  24  hour  span,  the  apparent  polarization  resistance  continues  to 
decrease  at  a slow  rate.  The  effect  of  a dissolving  oxide  film  would  not  be  expected 
to  occur  over  this  long  period.  The  two  effects  may  be  acting  together  with  oxide 
removal  important  at  short  times  and  surface  roughening  at  long  times. 

Figures  4.10,  4.11,  and  4.12  show  six  consecutive  impedance  scans  for  copper  in 
0.5M  Cl-  solution  at  ph  7.  The  apparent  polarization  resistance  increases  rapidly. 
This  trend  may  be  caused  by  the  growth  of  an  oxide  film  and  is  consistent  with 
the  change  in  corrosion  potential  with  time  shown  in  Figure  4.1.  The  polarization 
resistance  is  larger  than  was  measured  in  acid  solution  supporting  the  hypothesis 
that  an  oxide  film  was  present  on  the  electrode  surface.  The  salt  film  is  not 
expected  at  low  currents. 

A similar  series  of  impedance  scans  were  run  with  an  electrolyte  of  pH  9.5. 
The  results  are  shown  in  Figures  4.13,  4.14,  and  4.15.  The  apparent  polarization 
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resistance  first  increases  and  then  decreases.  An  oxide  film  is  known  to  exist  at 
pH  9.5.  The  measured  polarization  resistance  is  an  order  of  magnitude  larger 
than  was  seen  in  neutral  solution  suggesting  a resistive  film,  but  the  variation  in 
impedance  response  with  time  suggests  that  the  film  is  unstable. 

At  pH  11.4,  the  impedance  response  does  not  appear  to  change  significantly 
with  time.  Figures  4.16,  4.17,  and  4.18  show  8 consecutive  scans  which  appear 
almost  replicate.  However,  the  data  collected  at  long  times  and  presented  in  Fig- 
ures 4.16,  4.17,  and  4.18  show  that  the  impedance  magnitude  increases  slowly. 
The  issue  of  replicacy  will  be  addressed  in  the  chapter  of  this  work  describing  the 
application  of  measurement  models.  The  impedance  data  collected  at  pH  11.4 
do  not  intercept  the  real  axis  which  is  how  the  polarization  resistance  is  read. 
However,  if  it  were  possible  to  extrapolate  the  resistance  from  the  data,  the  value 
would  clearly  be  large.  The  impedance  as  a function  of  frequency  plots  show  that 
to  obtain  the  missing  part  of  a spectrum,  a lower  perturbation  frequency  must 
be  used.  However,  there  is  a practical  limit  to  the  frequency  range  which  can  be 
applied  since  its  inverse  is  time.  Two  conclusions  can  be  drawn  from  the  data 
without  more  sensitive  interpretation.  The  electrode  is  highly  polarizable  and  the 
frequency  associated  with  the  process  which  causes  the  large  resistance  has  a large 
time  constant. 

The  interpretation  of  spectra  through  more  sensitive  analyses  was  complicated 
by  the  non-stationary  behavior  seen  by  examining  the  impedance  response  with 
time.  Since  the  impedance  response  changes  between  each  experiment,  it  follows 
that  the  impedance  also  changes  during  the  course  of  the  experiment.  Any  anal- 
ysis which  directly  involves  each  data  point  of  a spectrum  must  include  the  time 
dependence  to  account  for  the  time  elapsed  to  collect  each  point. 

The  effect  of  rotation  speed  on  copper  in  0.5M  Cl"  solutions  at  pH  1 is  shown 
in  Figures  4.22,  4.23,  and  4.24.  The  data  were  collected  after  21  hours  immersion 
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to  allow  the  effect  of  time  over  the  course  of  the  experiments  to  be  small  relative  to 
the  effect  of  rotation  rate.  The  spectrum  at  lOOOrpm  was  collected  at  three  differ- 
ent times  during  the  series  of  experiments  in  order  to  demonstrate  the  stationarity 
of  the  data.  The  data  were  also  found  to  be  consistent  with  the  Kramers-Kronig 
relations  whose  application  will  be  discussed  in  the  chapter  concerning  the  appli- 
cation of  measurement  models.  From  the  data  in  the  figures,  an  effect  of  rotation 
speed  is  clear.  It  follows  that  mass  transfer  through  the  hydrodynamic  diffusion 
layer  is  important.  The  polarization  resistance  read  from  the  data  increases  with 
decreasing  rotation  speed.  This  is  expected  since  the  mass  transfer  resistance  of  a 
rotating  disk  increases  with  decreasing  rotation  speed.  To  determine  if  the  mass 
transfer  resistance  through  the  hydrodynamic  layer  dominates  the  copper  corro- 
sion process,  the  polarization  resistance  was  plotted  against  the  inverse  square  root 
of  rotation  speed.  The  resistance  was  obtained  by  subtracting  the  high  frequency 
real  axis  intercept  (solution  resistance)  from  the  low  frequency  intercept.  A lin- 
ear least  square  regression  was  performed  (r=0.995)  and  the  results  are  shown  in 
Figure  4.25.  For  a process  dominated  by  diffusion  through  the  rotating  disk  dif- 
fusion layer,  the  y intercept  where  rotation  speed  approaches  infinity  should  be 
zero.  Since  the  intercept  is  finite,  it  follows  that  another  resistance  contributes 
to  the  corrosion  of  copper  in  acid  chlorides.  This  resistance  could  be  caused  by 
a film,  but  a kinetic  resistance  associated  with  either  the  copper  dissolution  or 
oxygen  reduction  reaction  (or  both)  is  more  likely  since  a film  is  not  expected  in 
acid  chloride  solutions  at  open  circuit  potentials. 

At  pH  11.25  after  24  hours  immersion,  the  small  effect  of  rotation  speed  on 
copper  is  shown  in  Figures  4.26,  4.27,  and  4.28.  Since  it  is  hypothesized  that  the 
large  impedance  magnitude  results  from  a film  on  the  electrode,  it  follows  that  the 
resistance  associated  with  the  rotating  disk  hydrodynamic  diffusion  layer  should 
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not  be  significant.  The  small  but  discernible  rotation  speed  effect  may  arise  from 
the  resistance  of  the  hydrodynamic  layer,  but  is  more  likely  caused  by  a change  in 
the  thickness  of  the  film  due  to  the  varying  resistance  of  the  hydrodynamic  layer. 

The  effect  of  potential  bias  on  copper  in  chloride  solution  at  pH  11.5  is  shown 
in  Figures  4.29,  4.30,  and  4.31.  The  possible  dominance  of  either  the  cathodic  or 
anodic  processes  can  be  identified  by  small  potential  bias.  Since  a change  was  seen 
with  potential  bias  in  both  directions,  it  follows  that  both  anodic  and  cathodic 
processes  must  be  included  in  a proposed  mechanism  or  model  for  the  system. 

4.3  Impinging  Jet  Experiment 

An  impinging  jet  was  used  to  determine  the  effect  of  differential  mass  transfer 
on  a large  disk.  The  jet  was  6.35mm  ID,  and  the  disk  had  a 5cm  diameter.  The 
resulting  profile  of  the  electrode  exposed  to  the  impinging  jet  at  4gpm  of  0.5M  Cl- 
and  pH=8.5  for  4 days  is  shown  in  Figure  4.32.  Low  regions  of  the  profile  are  a 
result  of  high  corrosion  rates. 

The  area  in  the  center  of  the  disk  is  where  the  uniform  mass  transfer  stagnation 
region  existed.  Outside  of  this  region,  the  mass  transfer  rate  decreases.  The  peaks 
on  the  plot  in  Figure  4.32  are  located  in  the  slowly  decreasing  mass  transfer  rate 
region  and  represent  a low  corrosion  rate.  The  reduced  transport  of  oxygen  or 
dissolution  product  may  have  caused  the  corrosion  rate  of  copper  to  decrease.  The 
dissolution  rate  increases  moving  further  out  along  the  radius  of  the  disk.  This 
may  have  occurred  because  the  oxygen  reduction  rate  was  not  large  enough  to 
change  the  pH  at  the  surface  and  allow  formation  of  the  oxide  film.  Without 
the  oxide  film,  corrosion  rates  should  be  high.  At  the  periphery  of  the  disk,  the 
corrosion  rate  decreases  again.  This  may  have  occurred  because  the  oxygen  supply 
was  decreased  relative  to  the  adjacent  region  closer  to  the  center  of  the  disk. 
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Figure  4.4:  Impedance  plane  plot  of  data  collected  from  Cu  in  aerated  0.5M  Cl~ 
solutions  and  pH=l  at  lOOOrpm  disk  rotation  speed.  Data  sets  were  collected  con- 
secutively over  a one  hour  period.  The  apparent  polarization  resistance  decreases 
with  time. 
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Figure  4.5:  Real  impedance  as  a function  of  frequency  plot  of  data  presented 
in  Figure  4.4. 
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Figure  4.6:  Imaginary  impedance  as  a function  of  frequency  plot  of  data  presented 
in  Figure  4.4. 
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Figure  4.7:  Impedance  plane  plot  of  data  collected  from  Cu  in  aerated  0.5M  Cl 
solutions  and  pH=l  at  lOOOrpm  disk  rotation  speed  at  long  times.  Data  sets 
were  collected  over  a 24  hour  period.  Compare  with  data  of  short  time  shown  in 
Figure  4.4. 
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Figure  4.8:  Real  impedance  as  a function  of  frequency  plot  of  data  presented 
in  Figure  4.7. 
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Figure  4.9:  Imaginary  impedance  as  a function  of  frequency  plot  of  data  presented 
in  Figure  4.7. 
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Figure  4.10:  Impedance  plane  plot  of  data  collected  from  Cn  in  aerated  0.5M  Cl~ 
solutions  and  pH=7  at  lOOOrpm  disk  rotation  speed.  Data  sets  were  collected  con- 
secutively over  a one  hour  period.  The  apparent  polarization  resistance  increases 
with  time. 
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Figure  4.11:  Real  impedance  as  a function  of  frequency  plot  of  data  presented 
in  Figure  4.10. 


47 


Figure  4.12:  Imaginary  impedance  as  a function  of  frequency  plot  of  data  presented 
in  Figure  4.10. 
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Figure  4.13:  Impedance  plane  plot  of  data  collected  from  Cu  in  aerated  0.5M  Cl~ 
solutions  and  pH=9.5  at  lOOOrpm  disk  rotation  speed.  Data  sets  were  collected 
consecutively  over  a one  hour  period.  The  effect  of  time  is  unclear,  but  the  data 
suggests  non-stationarity.  The  apparent  polarization  resistance  is  large. 
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Figure  4.14:  Real  impedance  as  a function  of  frequency  plot  of  data  presented 
in  Figure  4.13. 
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Figure  4.15:  Imaginary  impedance  as  a function  of  frequency  plot  of  data  presented 
in  Figure  4.13. 
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Figure  4.16:  Impedance  plane  plot  of  data  collected  from  Cu  in  aerated  0.5M  Cl~ 
solutions  and  pH=11.4  and  lOOOrpm  disk  rotation  speed.  Data  sets  were  collected 
consecutively  over  a one  hour  period.  The  effect  of  time  is  small,  and  the  apparent 
polarization  resistance  is  large. 
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Figure  4.17:  Real  impedance  as  a function  of  frequency  plot  of  data  presented 
in  Figure  4.16. 
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Figure  4.18:  Imaginary  impedance  as  a function  of  frequency  plot  of  data  presented 
in  Figure  4.16. 
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Figure  4.19:  Impedance  plane  plot  of  data  collected  from  Cu  in  aerated  0.5M  Cl- 
solutions  and  pH=11.4  at  lOOOrpm  disk  rotation  speed.  Data  sets  were  collected 
over  a 27  hour  period.  Compare  with  data  shown  in  Figure  4.16. 
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Figure  4.20:  Real  impedance  as  a function  of  frequency  plot  of  data  presented 
in  Figure  4.19. 
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Figure  4.21:  Imaginary  impedance  as  a function  of  frequency  plot  of  data  presented 
in  Figure  4.19. 
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Figure  4.22:  Impedance  plane  plot  of  data  collected  from  Cu  in  aerated  0.5M  Cl" 
solutions  and  pH=l  collected  at  6 disk  rotation  speeds  (rpm)  after  21  hours  im- 
mersion. Three  data  sets  at  lOOOrpm  were  collected  between  data  at  other  speeds. 
The  influence  of  the  hydrodynamic  mass  transfer  layer  is  apparent. 
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Figure  4.23:  Real  impedance  as  a function  of  frequency  plot  of  data  presented 
in  Figure  4.22. 
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Figure  4.24:  Imaginary  impedance  as  a function  of  frequency  plot  of  data  presented 
in  Figure  4.22. 
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Figure  4.25:  The  polarization  resistances,  Rp,  taken  from  the  data  of  Figure  4.22  as 
a function  of  inverse  square  root  rotation  speed,  and  a linear  regression  (r=0.995) 
of  the  points.  The  y intercept  for  a process  limited  by  transport  through  a rotating 
disk  diffusion  layer  would  be  zero. 
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Figure  4.26:  Impedance  plane  plot  of  data  collected  from  Cu  in  aerated  0.5M  Cl~ 
solutions  and  pH=11.25  collected  at  5 disk  rotation  speeds  (rpm)  after  24  hours 
immersion.  The  effect  of  rotation  speed  appears  small. 
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Figure  4.27:  Real  impedance  as  a function  of  frequency  plot  of  data  presented 
in  Figure  4.26. 
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Figure  4.28:  Imaginary  impedance  as  a function  of  frequency  plot  of  data  presented 
in  Figure  4.26. 
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Figure  4.29:  Impedance  plane  plot  of  data  collected  from  Cu  in  aerated  0.5M  Cl- 
solutions  and  pH=11.5  collected  at  0,  50,  and  -50mV  bias  after  2 hours  immersion 
at  lOOOrpm.  The  importance  of  both  anodic  and  cathodic  reaction  kinetics  is 
suggested. 
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Figure  4.30:  Real  impedance  as  a function  of  frequency  plot  of  data  presented 
in  Figure  4.29. 
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Figure  4.31:  Imaginary  impedance  as  a function  of  frequency  plot  of  data  presented 
in  Figure  4.29. 
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Figure  4.32:  Profile  of  large  Cu  electrode  exposed  4 days  to  impinging  jet  at  4gpm 
of  0.5M  Cl  and  pH=8.5.  Low  regions  of  the  profile  are  a result  of  high  corrosion 
rates. 


CHAPTER  5 

APPLICATION  OF  MEASUREMENT  MODELS 


Measurement  models  [4,  5]  were  used  to  facilitate  the  interpretation  of  EIS  data. 
The  models  were  used  to  check  data  for  consistency  with  the  Kramers-Kronig 
relations  allowing  identification  of  a portion  of  the  spectra  which  was  not  influenced 
by  instrumental  artifacts  or  non- stationary  phenomena  such  as  film  growth  or 
breakdown.  This  portion  could  then  be  used  for  a fit  by  a steady  state  model. 
Measurement  models  were  also  used  to  provide  a sensitive  means  for  discriminating 
between  seemingly  replicate  data  sets  allowing  the  identification  of  the  effects  of 
disk  rotation  speed  and  time  on  the  impedance  response  of  copper  in  alkaline 
solutions. 


5.1  Kramers-Kronig  Consistency 

The  real  and  imaginary  parts  of  a complex  impedance  spectrum  that  satisfies 
the  conditions  of  causality,  linearity,  and  stability  can  be  related  through  appli- 
cation of  the  Kramers-Kronig  relations  [3,  86-89].  In  order  to  regress  a model 
for  the  impedance  response  of  a system  which  includes  the  conditions  of  causality, 
linearity,  and  stability  directly  to  experimental  data,  the  spectrum  must  satisfy  the 
Kramers-Kronig  relations.  To  test  for  consistency,  the  relations  can  be  integrated 
directly  or  a model  which  is  itself  consistent  can  be  fit  to  the  data. 

The  design  of  a model  for  the  impedance  response  of  a system  usually  includes 
the  conditions  of  causality,  linearity,  and  stability.  An  equivalent  circuit  composed 
of  passive  elements  always  meets  these  criteria.  A physical  model  is  designed  to 
simulate  the  processes  for  a system  to  predict  the  impedance  response.  If  the  model 
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cannot  be  regressed  to  experimental  data,  it  is  possible  that  it  does  not  adequately 
represent  the  processes  in  the  system.  However,  the  model  and  data  in  this  case 
may  each  satisfy  the  conditions  for  consistency  across  a frequency  spectrum.  The 
condition  of  linearity  is  given  by  the  Taylor  series  approximation  inherent  in  all 
impedance  calculations  and  measurements 


. j dl  1 d2I  A - 

A I = — AE  H -AE2  + 

dE  2 dE2 


(5.1) 


where  all  terms  smaller  than  those  of  order  AE  are  neglected  resulting  in  a linear 
equation.  It  is  apparent  that  a large  perturbation  will  result  in  violation  of  the 
assumption  of  linearity.  One  way  to  avoid  this  problem  is  to  include  more  terms  of 
the  expansion  into  a model.  However,  this  approach  may  prohibitively  complicate 
calculations.  Models  composed  of  electrical  circuit  elements  employ  only  the  first 
term. 

Since  corrosion  involves  the  dissolution  of  a surface,  the  condition  of  stability 
is  easily  violated  and  has  been  problematic  in  this  work.  The  cause  of  instability 
in  the  impedance  spectra  of  this  work  has  been  a time  evolution  of  the  electrode 
surface  which  is  attributed  to  the  growth  of  a film.  Figure  4.10  shows  an  example  of 
this  behavior.  Orazem,  Esteban,  and  Moghissi  [3]  have  shown  cases  where  changes 
in  pH  and  temperature  have  caused  violation  of  the  stability  condition  for  the 
impedance  response  of  copper  in  chloride  solutions. 

To  test  experimental  data  for  linearity,  causality,  and  stability,  the  Kramers- 
Kronig  relations  can  be  integrated  for  the  data  set  in  question  [3,  86-89].  Several 
drawbacks  are  associated  with  this  approach.  The  first  is  that  the  relations  must 
be  integrated  over  a frequency  range  of  zero  to  infinity.  Since  all  experimental 
data  must  be  collected  over  a finite  frequency  range,  the  integration  can  only 
be  approximated.  Also,  since  different  parts  of  the  spectrum  contribute  more  or 
less  to  the  total  integral,  it  is  difficult  to  identify  which  part  of  a spectrum  may 
be  inconsistent.  Since  the  impedance  at  high  frequencies  contributes  less  than 
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the  low,  the  evaluation  of  data  at  the  high  frequency  end  of  a spectrum  has  less 
confidence  than  at  the  low  end. 

A better  method  for  testing  experimental  impedance  data  is  to  regress  a model 
which  is  known  to  adhere  to  the  three  conditions  for  consistency  directly  to  the 
data.  The  problem  with  this  approach  is  that  if  a model  does  not  fit  a particular 
spectrum,  the  conclusion  drawn  is  that  the  data  is  either  inconsistent  or  that  the 
model  cannot  predict  the  response  of  the  system  from  which  the  data  was  collected. 
If  a model  which  represents  the  physics  of  the  system  can  be  found  which  fits  the 
data,  then  the  data  must  be  consistent.  If  a general  model  can  be  found  which 
will  fit  any  data  set  consistent  with  the  Kramers-Kronig  relations,  then  it  can  be 
applied  to  experimental  data  as  a test  for  this  consistency.  Agarwal,  Orazem,  and 
Garcia-Rubio  [5]  have  developed  a general  model  which  fit  the  experimental  data 
in  this  work.  It  is  based  on  the  Voigt  circuit  given  by 


Z(u.)  = Z.  + ■£  - At 

k (!+J 


(5.2) 


which  is  the  same  as  a Randles  circuit  in  series  with  k-1  RC  circuits.  The  equation 
is  more  familiar  when  expressed  as 

1 


Z(")  = H.  + £ 7-5- 


(5.3) 


k (r7  +j"Ck) 

By  using  a sufficient  number  of  these  elements,  a statistically  adequate  fit  is  ob- 
tained for  consistent  data.  Figure  5.1  shows  the  result  of  impedance  data  collected 
from  copper  at  lOOOrpm  at  open  circuit  (-230  mV  SCE)  in  0.5M  chloride  solution 
and  pH  of  1 after  21  hours  of  immersion.  The  experimental  impedance  data  is  given 
by  the  circles,  and  the  center  lines  are  the  Voigt  model  fit  obtained  by  regressing 
to  the  real  part  of  the  data.  The  lines  on  either  side  of  the  model  represent  the 
95%  confidence  interval  for  the  regression.  Since  the  experimental  data  points  fall 
outside  of  this  interval,  it  is  concluded  that  the  data  set  is  not  consistent  with  the 
Kramers-Kronig  relations.  The  relative  residuals  are  shown  in  Figure  5.2.  These 
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plots  accentuate  the  lack  of  fit  at  both  the  high  and  low  frequency  parts  of  the 
spectrum.  The  dashed  lines  represent  the  estimated  error  structure  of  the  data 
which  is  based  on  the  noise  specifications  of  the  instrumentation. 

Through  a trial  and  error  procedure,  a total  of  twelve  points  were  removed 
from  the  high  and  low  frequency  ends  of  the  spectrum.  The  remaining  points 
are  consistent  with  the  Kramers-Kronig  relations  and  can  be  used  for  analysis 
and  regression  of  a model.  The  plots  shown  in  Figures  5.3  and  5.4  show  that 
the  data  points  fall  within  the  95  percent  confidence  interval  for  the  measurement 
model  regression.  High  frequency  anomalies  have  been  attributed  to  non-linear 
instrumental  artifacts  [90].  The  low  frequency  data  points  that  were  deleted  were 
most  likely  collected  from  a non-stationary  interface.  Since  data  points  at  low 
frequency  take  a long  time  to  collect,  it  is  not  surprising  that  the  surface  changed 
during  that  time.  Under  the  best  circumstances,  it  would  be  preferable  to  develop 
a model  which  accounts  for  the  change  of  the  interface  with  time  (e.g.  film  growth 
kinetics)  rather  than  to  delete  the  points. 

5.2  Effect  of  Rotation  Speed 

The  measurement  model  was  used  to  identify  the  effect  of  rotation  speed  on 
impedance  data  in  alkaline  solutions.  Figure  5.5  shows  data  collected  sequentially 
at  several  disk  rotation  speeds.  The  copper  had  been  immersed  in  0.5M  Cl-  at  pH 
11.5  for  three  days.  The  impedance  plane  plot  suggests  a lack  of  dependence  on 
rotation  speed  because  the  data  appear  replicate. 

The  measurement  model  was  regressed  to  the  combined  data  from  all  the  ex- 
periments shown  in  Figure  5.5.  Figure  5.6  shows  the  results  of  the  regression.  The 
circles  represent  the  data  and  the  lines  are  the  model.  The  quality  of  fit  can  be 
judged  by  plotting  the  residual  errors  for  the  regression  which  is  shown  in  Fig- 
ure 5.7.  The  solid  lines  represent  the  95%  confidence  interval  for  the  combined 
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data.  Since  the  residual  errors  lie  inside  these  lines,  the  fit  is  good.  However, 
since  the  residual  errors  fall  outside  of  the  lines  representing  the  estimated  error 
structure,  the  runs  are  not  replicate.  This  implies  that  the  impedance  response  of 
copper  in  alkaline  chloride  solutions  is  influenced  by  disk  rotation  speed.  This  con- 
clusion is  supported  by  the  observation  that  individual  data  sets  can  be  identified 
from  the  plot  of  residuals.  The  trend  in  the  residuals  can  be  identified  more  easily 
by  plotting  the  residuals  for  all  the  points  versus  temporal  sequence  as  shown  in 
Figure  5.8.  From  this  plot,  the  sequence  of  data  sets  does  not  appear  to  correlate 
with  rotation  speed.  The  rotation  speed  history  seems  to  be  more  significant.  If 
the  film  on  the  electrode  were  completely  stable,  then  rotation  speed  would  only 
affect  the  hydrodynamic  diffusion  layer,  and  the  history  of  the  electrode  would  not 
be  important.  However,  the  potential  through  the  film  changes  with  flux  resulting 
in  a change  in  concentrations  or  film  properties.  Therefore,  the  film  properties  and 
thickness  may  depend  on  disk  rotation  speed.  If  the  kinetics  for  film  formation 
were  fast,  then  the  history  of  the  electrode  would  again  not  be  important.  From 
experiments  conducted  in  alkaline  solutions  with  time  as  shown  in  Figure  4.19,  it 
is  known  that  film  growth  is  not  fast.  Therefore,  when  rotation  speed  is  changed, 
the  time  needed  to  reach  a steady  state  film  thickness  by  growth  or  decay  is  longer 
than  the  time  between  individual  experiments. 

A measurement  model  analysis  was  performed  on  data  sets  collected  sequen- 
tially at  one  disk  rotation  speed.  As  in  the  previous  test  (Figure  5.5),  the  data  was 
collected  from  copper  after  3 days  immersion  in  0.5M  Cl-  at  pH  11.5.  The  plots 
of  experimental  data  and  model  regression  appeared  identical  to  those  calculated 
in  Figures  5.6,  and  5.7.  The  residual  errors  versus  temporal  sequence  for  model 
regression  to  data  collected  at  one  rotation  speed  is  shown  in  Figure  5.9.  The 
sequence  of  the  lines  is  consistent  with  a slight  increase  in  both  real  and  imaginary 
impedance  with  immersion  time.  This  time  dependence  corresponds  to  a slow  film 
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growth.  The  conclusion  to  be  drawn  is  that  rotation  speed  should  be  included  in 
a complete  description  or  model  for  the  corrosion  of  copper  in  alkaline  solutions. 
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Figure  5.1:  Voigt  model  fit  to  complete  impedance  spectrum  collected  from  Cu  at 
lOOOrpm  at  Eoc  = -230  mV  (SCE)  and  pH=l  after  21  hours  immersion.  Circles 
are  data.  Center  lines  are  Voigt  model.  Outer  lines  are  95%  confidence  interval. 
Dashed  lines  are  estimated  error  structure. 
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Figure  5.2:  Residuals  of  Voigt  model  fit  to  complete  impedance  spectrum  collected 
from  Cu  at  lOOOrpm  at  Eoc  = -230  mV  (SCE)  and  pH=l  after  21  hours  immersion. 
Circles  are  data.  Center  lines  are  Voigt  model.  Outer  lines  are  95%  confidence 
interval.  Dashed  lines  are  estimated  error  structure. 
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Figure  5.3:  Voigt  model  fit  to  truncated  impedance  spectrum  collected  from  Cu 
at  lOOOrpm  at  Eoc  = -230  mV  (SCE)  and  pH=l  after  21  hours  immersion.  Circles 
are  data.  Center  lines  are  Voigt  model.  Outer  lines  are  95%  confidence  interval. 
Dashed  lines  are  estimated  error  structure. 
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Figure  5.4:  Residuals  of  Voigt  model  fit  to  truncated  impedance  spectrum  collected 
from  Cu  at  lOOOrpm  at  Eoc  = -230  mV  (SCE)  and  pH=l  after  21  hours  immersion. 
Circles  are  data.  Center  lines  are  Voigt  model.  Outer  lines  are  95%  confidence 
interval.  Dashed  lines  are  estimated  error  structure. 
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Figure  5.5:  Impedance  plane  plot  of  Voigt  model  fit  to  the  combined  data  collected 
consecutively  from  Cu  at  pH=11.5  and  rotation  speeds  of  1000,  700,  500,  1500, 
2000,  and  lOOOrpm  respectively  after  3 days  immersion.  Circles  represent  data, 
and  the  line  represents  the  model. 
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Figure  5.6:  Real  and  imaginary  impedance  as  a function  of  frequency  for  the  Voigt 
model  fit  to  impedance  data  of  Figure  5.5.  Circles  are  data,  and  lines  are  the 
model. 
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Figure  5.7:  Residual  errors  for  the  regression  shown  in  Figure  5.6.  Dashed 

lines  are  the  error  structure  model.  Solid  lines  are  the  95%  confidence 
interval  for  the  data.  The  individual  runs  in  temporal  sequence  are: 

• )1000rpm,  +)700rpm,  *)500rpm,  □)1500rpm,  0)2000rpm,  andA)lOOOrpm(repeated) 
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Figure  5.8:  Residual  errors  for  the  regression  shown  in  Figure  5.6  plotted 
versus  temporal  sequence  of  experimental  runs.  The  individual  runs  in  tem- 
poral sequence  are:  *)1000rpm,  +)700rpm,  *)500rpm,  □)1500rpm,  0)2000rpm, 
andA)lOOOrpm(repeated). 
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Figure  5.9:  Residual  errors  for  the  regression  of  the  Voigt  model  to  experimental 
data  collected  from  Cu  at  lOOOrpm  after  3 days  immersion  plotted  versus  temporal 
sequence  of  experimental  runs. 


CHAPTER  6 

PHYSICO-ELECTROCHEMICAL  MODELS 

Two  physico-electrochemical  models  were  developed  for  the  corrosion  and  dis- 
solution of  copper  in  0.5M  chloride  solutions.  A model  for  the  steady  state  con- 
centration profiles  was  prepared  that  includes  the  ten  expected  chemical  species 
present  in  the  system.  The  cases  of  oxygen  limiting  current,  below  oxygen  limit- 
ing current,  and  anodic  dissolution  were  examined.  The  effects  of  pH,  aeration, 
and  current  were  included  to  identify  the  conditions  for  which  six  potential  films 
may  precipitate.  The  influence  of  a porous  film,  an  oxide  layer,  and  a combina- 
tion of  the  two  was  included.  A model  for  the  electrochemical  impedance  was 
developed  which  included  a dissolution  reaction  and  the  effects  of  a porous  film. 
The  model  was  regressed  directly  to  experimental  impedance  data  collected  from 
copper  immersed  in  acid,  neutral,  and  alkaline  solutions. 

6.1  Steady  State  Model 

A physico-electrochemical  model  has  been  developed  which  calculates  the 
steady  state  concentrations  of  10  species  at  open  circuit  or  a given  applied  current. 
The  reactions  considered  in  the  model  are  listed  in  Table  6.1.  The  reactions  for 
possible  precipitation  of  solids  are  listed  in  Table  6.2. 

The  model  calculated  concentration  profiles  of  the  expected  species  in  solution 
and  predicted  the  conditions  under  which  a film  precipitates  on  the  surface  of 
copper.  The  cases  of  oxygen  diffusion  limited  current  represented  by  Butler- Volmer 
expressions  for  the  copper  reactions  and  an  oxygen  limiting  current,  a kinetically 
reduced  current  which  adds  a kinetic  expression  for  the  oxygen  reduction  reaction, 
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and  high  anodic  current  were  examined  at  several  pH  values.  The  influences  of  a 
porous  film  and  oxide  layer  were  also  examined. 

The  chloride  complexes  of  the  cupric  ion  were  not  accounted  for  explicitly. 
Rather,  the  solubility  products  which  include  the  concentration  of  the  cupric  ion 
were  corrected  for  the  two  expected  chloride  complexes  CuCl+  and  CuClj.  The 
Ksp  for  CuCl+  is  1.26M-1,  and  the  product  for  CuClj  is  0.251M-2  [43].  If  a concen- 
tration of  0.5M  is  assumed  for  the  chloride  ion,  then  the  fraction  of  cupric  ions  tied 
up  in  chloride  complexes  can  be  predicted.  It  will  be  shown  that  the  assumption 
for  Cl  concentration  is  valid  at  low  anodic  currents.  The  total  concentration  of 
Cu(II)  is  given  by 

Cu(II)  = Cu++  + CuCl+  + CuCl°  + HCuOa  (6.1) 

Since  the  equilibrium  for  the  cupric  hydroxy  complex  depends  on  pH,  it  was  in- 
cluded explicitly  in  the  model.  Therefore,  the  concentration  of  Cu++  and  its  chlo- 
ride complexes  is  given  by 

Cu(II)*  = Cu++  + CuCl+  + CuCl°  (6.2) 

Through  use  of  the  equilibrium  constants, 

Cu++  = 0.519Cu(II)*  (6.3) 

If  the  chloride  concentration  were  to  drop  to  0.4M, 

Cu++  = 0.648Cu(II)*  (6.4) 

The  cupric  ion  concentrations  calculated  by  the  model  were  multiplied  by  the 
correction  factor  to  predict  possible  precipitation  of  films.  The  total  concentration 
of  cupric  species  calculated  by  the  model  will  be  shown  to  be  low.  Therefore, 
the  effect  of  cupric  ion  complexation  on  the  transport  phenomena  of  the  copper 
corrosion  system  is  assumed  to  be  unimportant. 
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Table  6.1:  Heterogeneous  and  Homogeneous  Reactions  for  Copper  Corrosion 


Reaction 

Ke,  [8,  43] 

Cu  ^ Cu+  + e~ 

na 

Cu+  + 2d*  ^ CuCl^ 

3.2e5 

Cu+  + 3C1-  ^ CuCl|" 

5.0e5 

Cu+  ^ Cu++  + e~ 

na 

Cu++  + 2H20  ^ HCu02  + 3H+ 

1.9e-27 

H20  ^ H+  + OH' 

1.0e-14 

02  + 2H20  + 2e~  ^ H202  + OH" 

na 

Table  6.2:  Precipitation  Reactions  for  Films  on  Copper 


Reaction 

K,p  [8,  43] 

Cu+  + Cl”  ^ CuCl 

1.2e-6 

Cu+  + OH-  ^ CuOH 

1.0e-14 

2Cu+  + 20H-  ^ Cu20  + H20 

1.3e-15 

Cu++  + 20H-  ^ CuOH2 

1.0e-20 

Cu++  + 20H"  ^ CuO  + H20 

7.8e-21 

2Cu++  + 30H-  + Cl"  ^ Cu2(OH)3C1 

7.1e-34 
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Table  6.3:  Diffusivities  in  10  5cm2s  1 


Species  i 

D, 

Cu+ 

0.72 

Cu++ 

0.72 

CuClJ 

1.0 

CuCll- 

1.0 

Na+ 

1.334 

ci- 

2.032 

H+ 

9.312 

OH- 

5.26 

02 


0.77 
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6.1.1  Governing  Equations 

The  equations  used  to  model  the  copper  corrosion  system  are  based  on  the 
reactions  listed  in  Table  6.1,  and  on  dilute  solution  transport  phenomena.  The 
equations  for  the  hydrodynamic  mass  transfer  layer  are  discussed  first  followed  by 
the  boundary  conditions  evaluated  far  away  from  the  electrode  surface  and  the 
boundary  conditions  at  the  surface  for  the  case  of  oxygen  limiting  current. 

The  equations  governing  the  hydrodynamic  mass  transfer  region  of  a rotat- 
ing disk  electrode  will  be  developed  first.  The  phenomenological  equations  for 
the  system  will  be  discussed  as  well  as  the  twelve  equations  used  to  define  the 
concentrations  of  10  chemical  species,  solution  potential,  and  metal  potential. 

The  constraint  of  electroneutrality  is  given  by 

'EzjCj  = 0 (6.5) 

which  assumes  that  the  charge  density  in  solution  is  zero.  The  hydrolysis  constant 
constrains  the  relative  concentrations  of  hydroxyl  and  hydronium  ions 

ch+coh-  = Kh  = 10-14  (6.6) 

Equilibrium  was  assumed  for  the  cuprous  chloride  complexes 


Cu+  + 2cr  ^ CuCi- 

(6.7) 

cCu+  cCl_  T/r 

- Ae?)1 

cCuCl“ 

(6.8) 

Cu+  + 3C1-  T=*  CuC\l~ 

(6.9) 

CCu+  CC1~  jy 

C 2 “ eq ’2 

cCuCl^_ 

(6.10) 

as  well  as  the  formation  of  cupric  hydroxide 

Cu++  + 2H20  ^ HCuOj  + 3H+ 

(6.11) 

CHCuO-cH+ 

— TV  eg, 3 

CCu++ 

(6.12) 
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Material  balances  for  species  that  participate  in  homogeneous  reactions  are  given 

by 

V • Nj  = Rj  (6.13) 

where  the  flux  Nj  in  the  electrolyte  region  includes  migration,  diffusion,  and  con- 
vection 

Nj  = ZjUjFcjVQ  — DjVcj  + vcj  (6-14) 

where  the  velocity  v is  given  by  [12] 


vz  = y/vur  deH 


(6.15) 


where 


and 


^ = -.51023C-^C3-^C4  + ... 


(6.16) 


c = V?  (6-i7> 

Since  the  reaction  rates  of  oxygen  and  sodium  are  zero  in  the  electrolyte,  their 
concentrations  can  be  calculated  through 


V • N0i  = 0 (6.18) 

V • NNa+  = 0 (6.19) 

(6.20) 

Since  dissolved  oxygen  has  no  charge,  its  concentration  in  solution  is  governed  by 
diffusion  and  convection  only.  However,  the  sodium  ion  concentration  is  affected  by 
the  additional  effects  of  migration  and  the  condition  of  electroneutrality.  Because 
sodium  is  not  consumed  or  produced  at  the  surface  or  outer  boundary  conditions, 
the  concentration  is  relatively  constant  within  the  hydrodynamic  layer.  The  flux  is 
therefore  small  and  difficult  to  calculate.  When  these  difficulties  arose,  the  sodium 
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equation  was  replaced  with  an  expression  for  the  divergence  of  current  [12] 

V • t = 0 (6.21) 

z2D 

i = -F2V$^-^ci-F^2r,AVct  + FvX:^  (6.22) 

i x i 

Electroneutrality  (equation  6.5)  allows  the  term  on  the  right  to  be  zero.  It  follows 
that  bulk  motion  of  fluid  without  charge  density  cannot  contribute  to  the  current 
density  [12]. 

For  species  involved  in  homogeneous  reactions,  the  divergence  of  flux  equals 
the  rate  of  the  reactions.  Since  the  calculation  of  the  fast  forward  and  backward 
rates  of  equilibrium  reactions  is  not  numerically  possible,  individual  equations  were 
summed  to  eliminate  the  reaction  terms.  The  mass  balance  for  cuprous  ions  gives 
equation  6.26 


V • NCu+ 

= ~RcuCl~ 

^CuCl|~ 

(6.23) 

V • NCuCl- 

~ Rc\iCl~ 

(6.24) 

^ N CuClj- 

~ ^CuClj- 

(6.25) 

v • NCll+  + V • NCuCl-  + V • NCllCl 2- 

= 0 

(6.26) 

The  mass  balance  for  chloride  ions  gives  equation  6.30 

<5 

£ 

1 

= — 2RCuC1- 

~ 3RcuCl^- 

(6.27) 

V • NCuCh- 

= ^CuCUr 

(6.28) 

^ ■ -^CuCl*- 

= RcuCl*- 

(6.29) 

V • NC1-  + 2V  • NCuCi-  + 3V  • iVCuC1 2- 

= 0 

(6.30) 

The  mass  balance  for  cupric  ions  gives 

V • NCu++ 

= — ^-HCuOJ 

(6.31) 

V ' ^HCuO- 

= ^HCuO“ 

(6.32) 

V • NCu++  + V • NnCu0- 

= 0 

(6.33) 
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The  mass  balance  for  hydronium  ions  gives  equation  6.37 


V • Nu+  = Rh2o  + 3i?HCu0-  (6.34) 

V • Non-  = Rn2o  (6.35) 

^ ' ^HCuO-  = -^HCuO"  (6.36) 

V • Nm  - V • iVon-  - 3V  • NU0nO-  = 0 (6.37) 


The  last  equation  used  in  the  model  was  for  potential  of  the  metal.  Since  this 
variable  has  no  meaning  outside  of  the  boundary  condition  for  the  metal  surface,  it 
is  not  coupled  to  the  equations  in  the  hydrodynamic  layer  and  was  included  in  the 
calculations  only  to  allow  the  matrix  of  equations  to  be  solved.  A total  of  twelve 
equations  have  been  described  to  govern  the  behavior  of  ten  chemical  species,  the 
potential  in  solution  (4>s),  and  the  potential  of  the  metal. 

The  boundary  conditions  far  from  the  electrode  represent  the  concentrations 
in  the  bulk  electrolyte.  The  concentration  of  oxygen  is  given  by  the  air  saturated 
value  [43] 

co2  = c3at,air  = 0.2579  mM  (6.38) 

and  can  be  set  to  any  value  to  simulate  solutions  with  different  oxygen  content. 
The  concentrations  of  hydroxyl  and  hydronium  ions  is  set  by  the  pH  and  the 
dissociation  constant  for  water 


-log(cH+)  = pH  (6.39) 

cH+CoH-  = Kh  (6.40) 

The  concentration  of  chloride  ions  was  set  to  0.5M  for  this  work  and  could  easily 
be  changed  to  simulate  a different  chloride  content. 

cci—  = 0.5  (6.41) 

The  concentration  of  sodium  ions  is  defined  by  electroneutrality.  From  an  experi- 
mental viewpoint,  the  amount  of  NaCl  added  to  produce  a 0.5M  chloride  solution 
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depends  on  the  amount  of  HC1  added  to  solution.  Thus, 

VzjCj  = 0 (6.42) 

The  concentrations  of  the  remaining  species  have  been  set  near  zero 

cCu+  ~ cCuCl~  ~ CCuCl3~  ~ cCu++  ~ cHCuO~  ~ 0 (6.43) 

Numerical  difficulties  associated  with  the  equihbrium  expressions  of  the  complexes 
required  finite  concentrations.  While  the  equilibrium  conditions  cannot  be  consid- 
ered physically  valid,  the  concentrations  are  small  enough  to  be  effectively  zero. 
Finally,  the  potential  of  the  solution  is  set  to  zero 

$ = 0 (6.44) 

which  is  the  potential  of  the  reference  electrode  (NHE). 

6 . 1 . 1 . 1 F ilm  free  copper  surface 

The  equations  for  the  boundary  conditions  at  the  electrode  surface  for  the 
case  of  oxygen  limiting  current  include  all  heterogeneous  reactions.  Equa- 
tions 6.5,  6.6,  6.19,  6.8,  6.10,  6.26,  6.30,  6.33,  6.37,  and  6.18  were  used  where 
the  flux  Nj  is  defined  by  equation  6.14. 

Under  oxygen  diffusion  limited  current,  the  surface  concentration  of  oxygen  is 
zero 

co2  = 0 (6.45) 

The  total  current  is  given  by  the  sum  of  all  anodic  and  cathodic  reactions.  This 
current  is  zero  at  open  circuit  potentials. 

hotal  = i(C  u->Cu+)  + *(Cu+— >Cu)  + *(Cu+-Cu++)  + *(Cu++-Cu+)  + *02  + ^applied  (6.46) 

The  last  term  accounts  for  an  applied  current  which  requires  the  use  of  a counter 
electrode.  Butler-Volmer  expressions  were  used  for  the  copper  dissolution  reaction 
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and  the  cupric  ion  formation  reaction 


H — Fk0ti 


*2  — Fk0'2 


^cCu+  exp 


- cCu+  exp 

- cCu++  exp 


( e-e;\ 

V £ J 

T5)) 


(6.47) 

(6.48) 


The  fluxes  at  the  surface  for  species  involved  in  heterogeneous  reactions  are 
given  by  the  Butler- Volmer  equations,  and  the  fluxes  for  those  involved  in  ho- 
mogeneous reactions  are  zero.  The  flux  divergence  of  individual  species  must  be 
calculated  near  the  surface  (rather  than  at  the  surface)  since  a finite  difference 
approximation  was  used  to  solve  the  equations.  The  reaction  rates  must  then  also 
be  calculated  near  the  interface 


V • Nj  = Rj  (6.49) 

The  fluxes  in  the  electrolyte  region  near  the  electrode  surface  are  given  by  equa- 
tion 6.14  and  the  fluxes  for  species  not  involved  in  heterogeneous  reactions  are  zero 
at  the  surface. 

Equations  6.5,  6.6,  6.19,  6.8,  6.10,  6.26,  6.30,  6.33,  6.37,  and  6.18  were  evaluated 
near  the  electrode  surface  where  the  flux  Nj  is  defined  by  equation  6.14. 

The  oxygen  reduction  current  was  calculated  through  equation  6.18  where  the 
flux  at  the  surface  of  the  electrode  is  given  by  the  concentration  gradient  caused  by 
setting  the  oxygen  concentration  at  the  surface  to  zero  and  is  affected  by  convective 
diffusion. 

The  reaction  rate  of  sodium  ions  is  zero  near  the  electrode  surface  and  the  flux 
divergence  is  given  by  equation  6.19.  Since  the  reaction  rate  at  the  surface  is  also 
zero,  the  flux  at  the  surface  is  zero.  Therefore,  the  flux  near  the  surface  is  also  zero. 
The  flux  and  its  divergence  for  sodium  ions  is  zero  for  all  regions  and  boundary 
conditions.  It  will  be  shown  however,  that  the  concentration  profile  is  not  constant 
for  all  conditions. 
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Equation  6.26  , the  mass  balance  for  cuprous  ions,  was  used  with  electrode 
surface  condition 

^cu+  = (6.50) 

The  mass  balance  for  chloride  ions  (equation  6.30)  and  the  mass  balance  for  hy- 
dronium  ions  (equation  6.37)  were  used.  Also,  the  mass  balance  for  cupric  ions 
given  by  equation  6.33  was  used  with  the  added  surface  condition 

iVcu++  = j (6.51) 

A total  of  twelve  equations  have  been  described  to  govern  the  behavior  of  ten 
chemical  species,  the  potential  in  solution  ($*),  and  the  potential  of  the  metal  for 
the  boundary  condition  at  (or  near)  the  metal  surface. 

All  equations  necessary  for  calculation  of  concentration  profiles  and  fluxes  have 
been  described.  The  rotating  disk  convective  transport  equations,  equilibrium 
constraints,  homogeneous  reactions,  and  electroneutrality  were  included  in  the  disk 
electrode  diffusion  layer  region.  Expressions  for  the  kinetics  of  interfacial  reactions 
and  oxygen  limiting  diffusion  concentration  were  used  for  the  boundary  condition 
at  the  metal  surface.  The  boundary  condition  far  away  from  the  electrode  was 
defined  by  the  concentrations  in  the  bulk  solution. 

To  account  for  corrosion  rates  below  oxygen  diffusion  limiting  current,  a Butler- 
Volmer  expression  was  used  to  describe  the  reduction  of  oxygen 

(/  £ — E°\  ( E — E°\  \ 

c02  exp  ^—2  p 1 j - exp  f 2-  ^ 1 j j (6.52) 

The  reaction  is  generally  considered  irreversible  [12,  13],  but  the  reverse  reaction 
has  been  included  in  the  model  for  completeness.  The  reverse  rate  was  always 
calculated  to  be  extremely  small. 

The  condition  that  the  oxygen  concentration  is  zero  (equation  6.45)  at  the 
surface  for  the  case  of  oxygen  diffusion  limiting  current  was  replaced  with  an  ex- 
pression that  equates  the  transport  of  oxygen  to  the  surface  to  the  oxygen  reduction 
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current 


V • Nq2  = 0 


(6.53) 

(6.54) 


This  change  in  the  boundary  condition  for  the  metal  surface  was  the  only  mod- 
ification necessary  for  the  model  to  account  for  the  kinetic  resistance  of  oxygen 
reduction. 

6. 1.1.2  Porous  film 

The  equations  accounting  for  the  effect  of  a porous  film  mass  transfer  layer 
on  the  surface  of  the  electrode  were  added  to  the  model.  The  equations  for  this 
region  are  the  same  as  those  in  the  hydrodynamic  mass  transfer  layer  except  for 
two  changes.  The  fluid  velocity  within  the  film  was  removed,  and  the  diffusivities 
were  multiplied  by  a porosity  factor. 

The  phenomenological  equations  used  for  the  interface  between  porous  and 
hydrodynamic  mass  transfer  layers  are  the  same  as  those  for  the  individual  regions. 
The  equilibrium  and  electroneutrality  equations  are  easily  evaluated.  However, 
the  transport  equations  must  be  numerically  evaluated  over  a finite  distance  that 
includes  both  the  porous  and  hydrodynamic  regions.  Since  the  film  thickness  is  not 
the  same  as  the  hydrodynamic  rotating  disk  diffusion  length,  the  number  of  mesh 
points  was  divided  equally  between  the  two  regions  to  accurately  calculate  the 
concentration  profile  within  a small  film.  To  couple  the  two  regions  of  dissimilar 
mesh  sizes,  a subroutine  was  developed  based  on  a method  used  previously  by 
Russell  and  Newman  [92]  followed  by  Gan  [93].  The  method  defines  a position 
relative  to  the  unequal  mesh  sizes  which  maintains  an  accuracy  proportional  to 
the  mesh  size  squared. 
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6. 1.1. 3 High  field  conduction  layer 


The  behavior  of  the  oxide  on  the  surface  of  copper  in  alkaline  solutions  was 
modeled  by  a high  field  conduction  expression, 


Ihfc  — FAyc 


) - exp  ( 


))  (6.55) 


This  expression  was  used  instead  of  the  Butler- Volmer  equation  for  the  copper 
dissolution  reaction.  When  the  arguments  of  the  exponents  are  large,  then  only 
one  term  of  the  equation  is  important.  The  use  of  one  term  is  common  for  high  field 
conduction  models.  The  use  of  both  terms  has  the  advantage  that  if  the  arguments 
of  the  exponents  become  small,  the  current  response  to  potential  becomes  linear 
(which  is  Ohm’s  law).  The  high  field  conduction  model  with  both  forward  and 
reverse  terms  accounts  for  low  field  conduction  (Ohm’s  law)  when  either  the  oxide 
thickness  becomes  large  or  the  potential  difference  across  the  oxide  becomes  small. 
A Taylor  series  analysis  verifies  this  behavior. 

The  equation  for  cupric  ion  formation  was  kept  in  place  since  the  reaction  is 
assumed  to  occur  on  the  outer  surface  of  the  oxide.  The  oxygen  reduction  was 
also  assumed  to  occur  on  the  oxide.  Since  the  reduction  of  oxygen  on  the  oxide  is 
expected  to  be  slow,  and  copper  which  is  covered  with  an  oxide  corrodes  slowly, 
the  oxygen  reduction  reaction  was  treated  with  a kinetic  expression  rather  than 
one  of  diffusion  limitation. 

The  total  current  is  given  by  the  sum  of  all  anodic  and  cathodic'reactions  which 
is  zero  at  open  circuit  potentials. 


(6.56) 


The  possibility  of  applied  current  was  not  included  since  the  high  field  conduction 
model  is  valid  at  low  currents. 
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6.1.2  Numerical  Method 


The  equations  were  written  in  finite  difference  form  as  described  by  New- 
man [12].  The  entire  mass  transfer  boundary  layer  was  divided  into  NJ  mesh 
points  where  the  metal  surface  is  represented  by  J=l,  and  far  away  from  the  sur- 
face is  represented  by  J=NJ. 

The  divergence  of  a flux  is  represented  by 


V • Nj(J) 


h 


= Rj(J) 


(6.57) 


For  cases  where  the  reaction  rate  is  zero  (such  as  equations  6.18,  6.19),  the  diver- 
gence of  flux  is  given  by 

Ni(J  + i)  = Nj(J  - i)  (6.58) 

For  the  boundary  conditions  at  the  metal  surface,  the  flux  divergence  must  be 
calculated  near  the  electrode  surface  rather  than  at  the  surface.  The  flux  diver- 
gence was  calculated  at  the  quarter  mesh  point.  For  one  dimension,  equation  6.49 
becomes 


V-JVj(J=l  + j)  = 


1,  JVj(J  = 1 + i)  — Nj(l  = 1) 


= Rj(i  = 1 + [)  (6.59) 


An  alternative  approach  would  be  to  use  an  image  point  existing  behind  the  surface 
of  the  metal  [12]. 

The  finite  difference  equations  were  solved  numerically  using  J.  Newman’s 
’BAND’  algorithm  [91]  coupled  with  a Newton-Raphson  iteration.  The  esti- 
mates for  diffusivities  listed  in  Table  6.3  were  taken  from  the  literature  (or  set 
to  10  5cm2/s  when  a better  estimated  could  not  be  made)  to  calculate  the  concen- 
tration profiles  of  the  10  species  considered.  The  distance  to  the  outer  mesh  point, 
NJ,  was  estimated  by  calculating  the  Nernst  layer  distance  for  a rotating  disk  [12] 
and  multiplying  by  three. 
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6.1.3  Results  of  Steady  State  Model 

The  results  of  the  model  accounting  for  the  cases  of  film  free  copper  corrosion 
(and  dissolution),  a porous  film,  and  a high  field  conduction  film  are  presented 
in  this  section.  The  case  of  a film  free  copper  surface  includes  oxygen  diffusion 
limited  current,  below  diffusion  limited  current,  and  applied  anodic  dissolution. 
The  case  of  a duplex  film  where  the  high  field  layer  is  covered  by  a porous  film  is 
also  included. 

6. 1.3.1  Film  free  copper  surface 

The  results  of  the  model  representing  bare  copper  corroding  at  oxygen  diffusion 
limited  current,  below  diffusion  limited  current,  and  applied  anodic  current  are 
presented  in  this  section.  The  results  for  the  model  representing  oxygen  diffusion 
limited  current  will  be  presented  first.  The  heterogeneous  rate  constant  for  copper 
dissolution  was  made  large  for  this  diffusion  limiting  case  (10-2s-1)  to  ensure  that 
the  current  was  governed  by  the  flux  of  oxygen.  The  rate  constant  for  cupric  ion 
formation  was  also  made  large  (104s-1)  to  most  easily  identify  the  possibility  of 
film  formation  involving  cupric  ions.  The  resulting  currents  were  still  small  enough 
to  only  slightly  affect  the  dissolution  rate  of  copper.  Both  rate  constants  are  large 
enough  to  allow  the  forward  reaction  rates  to  approximately  equal  the  reverse  rates. 

Under  the  condition  of  oxygen  limiting  current,  the  concentration  of  oxygen  at 
the  surface  of  the  electrode  is  zero.  The  predicted  oxygen  concentration  profiles 
at  three  different  disk  rotation  speeds  are  shown  in  Figure  6.1.  Since  oxygen  is 
not  involved  in  any  homogeneous  reactions,  the  concentration  profile  corresponds 
exactly  to  the  diffusion  limited  reaction  of  a species  on  a disk  electrode  whose  profile 
has  been  calculated  previously  [12].  By  normalizing  the  distance  by  a characteristic 
diffusion  length,  these  curves  could  be  made  to  superimpose.  The  current  densities 
calculated  by  the  model  are  listed  in  Table  6.4. 
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The  concentration  profiles  of  the  cuprous  ion  and  its  two  chloride  complexes 
at  several  pH  values  are  shown  in  Figure  6.2.  The  concentrations  were  found  to 
be  independent  of  pH.  From  examination  of  the  equations,  it  can  be  seen  that 
pH  should  not  affect  the  profiles  unless  the  rate  of  cuprous  ion  formation  is  in- 
directly influenced.  Since  the  anodic  copper  dissolution  rate  has  been  set  to  the 
diffusion  limiting  current  of  oxygen  (neglecting  the  small  contribution  of  cupric 
ion  formation),  the  concentration  of  Cu(I)  species  is  constant  with  pH.  Note  that 
the  majority  of  cuprous  species  are  complexed.  This  explains  why  a small  amount 
of  chloride  can  significantly  change  the  filming  and  corrosion  behavior  of  copper. 
The  plot  of  solution  potential,  <f>,  shows  that  the  potential  gradient  in  solution 
is  small.  It  follows  that  the  migration  term  of  the  governing  transport  equations 
is  not  large.  However,  the  condition  of  electroneutrality  requires  that  the  term 
be  included  [12].  The  solution  potential  for  pH=l  is  slightly  smaller  than  was 
calculated  for  the  other  pH  values  and  results  from  the  high  diffusivity  of  protons. 

The  concentration  profiles  of  the  hydronium,  hydroxyl,  sodium,  and  chloride 
ions  are  shown  in  Figure  6.3.  The  plot  of  hydronium  ions  shows  that  dramatic 
pH  changes  can  take  place  through  the  diffusion  layer  (in  this  work,  pH=-log[H+] 
rather  than  electrode  activity).  This  explains  how  film  formation  can  occur  at  pH 
values  much  lower  than  those  predicted  through  models  which  calculate  cuprous 
ion  surface  concentration  through  Cu(I)  diffusion  together  with  bulk  pH  measure- 
ments. Based  on  the  solubility  products  listed  in  Table  6.2,  the  precipitation  of 
Cu20  and  CuOH  was  predicted  to  occur  at  pH=3.7.  Note  that  the  surface  concen- 
tration of  protons  varies  four  orders  of  magnitude  between  bulk  pH  values  of  3.6 
and  3.7.  The  concentration  of  sodium  ions  is  constant  with  position.  The  concen- 
tration at  pH=l  is  lower  than  the  others  since  the  preparation  of  a 0.5M  chloride 
solution  with  0.1M  protons  requires  only  0.4M  sodium  ions  to  maintain  electroneu- 
trality. The  chloride  ion  concentration  is  also  relatively  constant  although  a slight 
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decrease  can  be  seen  at  the  surface  because  it  is  consumed  in  the  formation  of 
copper  complexes. 

The  concentration  profiles  of  the  cupric  ion  and  its  hydroxide  are  shown  in 
Figure  6.4.  They  are  presented  in  log  form  since  the  concentration  variations  are 
large.  The  small  concentrations  of  cupric  ion  are  expected  since  the  current  asso- 
ciated with  its  formation  is  small.  The  unusual  concentration  distribution  within 
the  mass  transfer  boundary  layer  is  a result  of  the  equilibrium  with  the  hydroxy 
complex  which  involves  the  hydronium  ion.  Since  the  cupric  ion  concentration 
increases  within  the  electrolyte,  it  must  be  produced  through  the  cupric  hydroxide 
equilibrium  reaction  listed  in  Table  6.1.  Some  of  the  concentration  profiles  appear 
discontinuous,  but  actually  result  from  the  dramatic  pH  changes  for  the  system. 
The  apparent  discontinuity  is  not  visible  when  the  profiles  are  plotted  in  a linear 
form.  The  concentration  profile  of  the  hydroxide  varies  strongly  with  the  bulk  pH. 
At  pH  values  of  1 and  3.6,  the  concentrations  were  not  significant.  The  plotted 
finite  of  Cu(II)  species  concentrations  far  from  the  electrode  surface  are  the  re- 
sult of  numerical  (and  physical)  problems  associated  with  setting  a concentration 
involved  in  an  equilibrium  reaction  to  zero. 

The  precipitation  of  Cu20,  CuOH,  CuO,  CuOH2,  and  Cu2(OH)3C1  was  pre- 
dicted over  a large  pH  range.  The  dependence  of  film  formation  on  pH  and  oxygen 
concentration  in  solution  for  the  case  of  oxygen  diffusion  limited  current  is  shown 
in  Figure  6.5.  The  lines  in  the  plot  represent  the  critical  pH  and  oxygen  content 
for  the  precipitation  of  a film.  The  formation  of  the  cupric  based  solids  depends 
strongly  on  the  rate  constant  for  cupric  ion  production.  A large  rate  constant  was 
used  for  the  preparation  of  the  figure.  It  should  be  noted  that  copper  in  chloride 
does  not  in  practice  corrode  at  the  maximum  diffusion  limited  value.  Therefore, 
the  plot  should  be  thought  of  as  mapping  out  the  minimum  pH  and  oxygen  content 
for  possible  film  formation.  The  point  at  highest  oxygen  concentration  corresponds 
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to  the  air  saturated  value  of  0.2579mM.  Below  10%  of  the  saturation  value,  no  film 
is  expected  on  the  metal  surface.  Above  this  value,  CU2O  is  expected  to  form,  and 
CuOH  is  predicted  at  a slightly  higher  oxygen  concentration.  At  oxygen  concen- 
trations close  to  air  saturation,  these  two  cuprous  films  may  precipitate  at  a pH 
near  4.  The  three  cupric  based  solids  form  at  slightly  higher  pH  and  oxygen  con- 
centrations. The  plot  shows  that  at  oxygen  limiting  current  in  alkaline  solutions,  5 
different  films  may  form.  However,  if  one  film  forms  (e.g.  Cu20),  then  the  current 
will  drop  significantly  because  the  oxygen  reduction  will  then  need  to  take  place  on 
the  surface  of  the  oxide.  This  reaction  is  not  expected  to  occur  at  oxygen  limiting 
values.  Therefore,  a stable  layer  of  Cu20  and  possibly  CuOH  will  form  and  may 
prevent  the  remaining  cupric  based  oxide  from  forming. 

The  condition  of  oxygen  limiting  current  was  relaxed  to  calculate  the  concen- 
tration profiles  of  film  free  corrosion  at  about  five  percent  of  the  diffusion  limiting 
value.  This  is  the  current  that  flows  in  acid  solutions  (pH=l).  The  concentra- 
tion of  oxygen  at  the  surface  of  the  electrode  is  not  zero,  and  a kinetic  expression 
was  used  instead  of  this  condition.  The  predicted  oxygen  concentration  profile  at 
lOOOrpm  is  shown  in  Figure  6.6.  While  the  calculated  surface  concentration  of 
oxygen  is  not  zero,  it  is  lower  than  in  the  bulk  indicating  an  influence  of  oxygen 
transport.  The  current  densities  calculated  by  the  model  are  listed  in  Table  6.5. 

The  heterogeneous  rate  constant  for  copper  dissolution  was  decreased  for  the 
reduced  current  case  (10-5s-1)  where  the  oxygen  reduction  rate  constant  was  set 
to  10-1s-1.  This  also  allowed  the  calculated  potential  of  the  metal  to  be  near  the 
experimentally  measured  value.  The  rate  constant  for  cupric  ion  formation  was 
kept  large  (104s  1 ) to  most  easily  identify  the  possibility  of  film  formation  involving 
cupric  ions.  The  resulting  currents  were  still  small  enough  to  only  slightly  affect 
the  dissolution  rate  of  copper. 
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The  concentration  profiles  of  the  cuprous  ion  and  its  two  chloride  complexes 
at  several  pH  values  are  shown  in  Figure  6.7.  The  concentrations  are  lower  than 
those  calculated  at  oxygen  diffusion  limited  current  and  do  not  depend  on  pH.  The 
plot  of  solution  potential,  <j>,  shows  again  that  the  potential  gradient  in  solution  is 
small. 

The  concentration  profiles  of  the  hydronium,  hydroxyl,  sodium,  and  chloride 
ions  are  shown  in  Figure  6.8.  The  plot  of  hydronium  ions  shows  that  the  dra- 
matic pH  changes  seen  at  oxygen  diffusion  limited  current  are  also  seen  at  reduced 
current.  The  critical  pH  for  the  precipitation  of  Cu20  was  predicted  at  pll=3.7. 
However,  CuOH  was  not  predicted  to  form  at  the  all  pH  values  examined  except 
pH=ll  where  CuO  and  CuOH2  (as  well  as  Cu20)  was  predicted. 

The  concentration  profiles  of  the  cupric  ion  and  its  hydroxide  are  shown  in 
Figure  6.9.  The  results  are  similar  to  the  case  of  oxygen  limited  diffusion  current. 
The  small  current  associated  with  the  formation  of  cupric  ions  again  results  in 
small  concentrations  of  the  Cu(II)  species. 

The  model  allowed  for  the  application  of  anodic  current.  The  calculated  current 
versus  potential  curve  is  shown  in  Figure  6.10.  This  curve  represents  the  film  free 
dissolution  of  copper  in  0.5M  chloride  solutions.  The  calculated  sweep  can  be 
compared  to  the  experimental  sweep  shown  in  Figure  4.2.  The  simulated  curve  is 
similar  to  the  Tafel  region  of  the  experimental  curve.  The  experimental  current 
limits  upon  film  formation  on  the  electrode  surface.  Without  the  presence  of  the 
film,  the  current  would  have  continued  to  increase  much  like  is  represented  by  the 
simulation. 

The  steady  state  dissolution  of  copper  was  examined  at  63mA/cm2  anodic 
current  for  pH  values  of  1 and  7.  This  current  is  just  under  the  current  needed  for 
the  precipitation  of  CuCl,  and  is  therefore  close  to  the  limiting  current  plateau. 
The  plots  shown  in  Figure  6.11  contain  the  concentration  profiles  of  the  cuprous 
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ion  and  its  two  chloride  complexes  at  the  two  pH  values.  The  concentrations  are 
high  relative  to  those  calculated  at  zero  total  current  and  do  not  depend  on  pH. 
The  plot  of  solution  potential,  (f> , shows  that  the  potential  gradient  in  solution  is 
significant.  Therefore,  migration  must  play  a part  in  the  transport  of  ions  from  the 
electrode  surface.  The  concentration  profiles  of  the  hydronium,  hydroxyl,  sodium, 
and  chloride  ions  are  shown  in  Figure  6.12.  Note  that  the  chloride  ion  surface 
concentration  is  significantly  lower  than  its  bulk  value.  As  was  discussed  in  the 
literature  review,  constant  chloride  concentration  is  a common  assumption  made 
in  the  analysis  of  copper  corrosion  in  chlorides.  The  concentration  profiles  of  the 
cupric  ion,  its  hydroxy  complex,  and  oxygen  are  shown  in  Figure  6.13.  The  oxygen 
reduction  was  inhibited  by  the  anodic  potential.  This  is  consistent  with  what 
would  occur  experimentally.  The  precipitation  of  Cu20,  CuOH,  CuO,  CuOH2, 
and  Cu2(OH)3C1  was  predicted  at  pH  7.  The  calculations  predicted  a bare  metal 
surface  at  pH  1,  but  a slightly  higher  current  resulted  in  the  precipitation  of  CuCl. 

The  current  and  pH  regions  in  which  the  possible  films  were  predicted  to  form 
are  shown  in  Figures  6.14  and  6.15.  The  plots  show  how  film  formation  depends 
on  applied  current  and  pH  and  can  be  compared  with  the  Pourbaix  diagrams  for 
waters  of  3.5%  salinity  shown  in  Figures  2.1  and  2.2. 

Pourbaix  diagrams  are  constructed  through  use  of  standard  electrode  poten- 
tials, the  Nernst  equation  and  solubility  data  for  various  metal  compounds  [8].  The 
diagrams  are  based  on  equilibrium  conditions  and  cannot  be  used  to  predict  the 
velocity  of  a reaction  (current)  since  the  effect  of  kinetics  and  transport  phenomena 
are  not  included.  The  diagrams  cannot  predict  concentrations  at  the  surface  of  an 
electrode.  Only  bulk  concentrations  may  be  used  for  use  in  the  Nernst  equation 
to  correct  for  equilibrium  potential. 

Pourbaix  diagrams  for  copper  in  water  [8]  and  sea  water  [7]  predict  regions 
of  film  formation.  Since  the  calculations  are  based  on  thermodynamic  quantities, 
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potential  is  used  to  predict  which  films  may  exist.  The  formation  of  a film  on  the 
surface  of  an  electrode  depends  on  the  concentrations  of  the  species  which  react  to 
form  the  film.  The  concentrations  of  metal  ions  will  depend  on  the  current  across 
the  interface.  Other  reactant  species  such  as  hydroxyl  ions  may  also  depend  on 
current.  Pourbaix  diagrams  do  not  consider  these  effects,  and  the  concentration 
profiles  calculated  in  this  work  show  that  the  concentrations  of  species  at  the 
electrode  surface  vary  significantly  from  the  bulk  (including  pH). 

The  concentrations  of  species  in  the  bulk  which  may  influence  film  formation 
are  often  also  not  accounted  for  in  Pourbaix  diagrams.  The  similarity  between 
the  diagrams  for  copper  in  water  and  sea  water  illustrates  this  weakness.  From 
reading  the  two  diagrams,  the  formation  of  oxide  and  hydroxide  films  occurs  in  the 
same  regions.  The  effect  of  chloride  cannot  be  included  in  the  diagrams  because 
it  does  not  influence  the  free  energy  of  reaction  for  film  formation  on  which  the 
calculations  are  based.  Practically,  it  is  known  that  chlorides  complex  the  copper 
ions  making  film  formation  more  difficult.  The  formation  of  a copper  oxide  or 
hydroxide  should  occur  at  a higher  pH  in  the  presence  of  chlorides  than  for  water. 

The  plots  calculated  by  the  steady  state  model  include  the  thermodynamic 
equilibrium  potentials  for  the  reactions  and  solubility  products  which  are  used  to 
calculate  Pourbaix  diagrams.  The  additional  effects  of  interfacial  reaction  rates, 
homogeneous  chemical  equilibria,  and  mass  transfer  have  been  added  to  provide 
a far  more  physically  realistic  prediction  for  the  formation  and  stability  of  copper 
and  its  corrosion  products. 

The  regions  where  a total  of  six  films  may  potentially  form  are  shown  in  Fig- 
ure 6.14.  The  areas  at  higher  current  or  more  alkaline  pH  than  the  plotted  lines  are 
where  film  formation  may  occur.  As  in  the  case  of  Figure  6.5,  a large  rate  constant 
was  used  for  the  cupric  ion  production  expression.  Therefore,  the  plots  should 
be  thought  of  as  mapping  out  the  minimum  conditions  for  cupric  ion  based  film 
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formation.  Cu20  forms  at  the  lowest  pH  value  followed  by  CuOH.  In  the  region  of 
pH  5 to  pH  9,  these  two  films  form  at  low  current,  dissolve  at  moderate  current, 
and  form  again  at  high  current.  This  behavior  can  be  explained  through  the  effects 
of  the  dissolution  and  oxygen  reduction  reactions.  The  solubility  products,  K4p,  of 
both  Cu20  and  CuOH  are  given  by  the  product  [Cu+][OH_]  (Table  6.2).  At  low 
anodic  currents,  the  local  pH  at  the  interface  is  high  allowing  the  formation  of  the 
films.  At  high  currents,  the  oxygen  reaction  is  suppressed,  but  the  cuprous  ion  con- 
centration at  the  surface  is  high  enough  for  film  formation.  At  intermediate  current 
values,  the  oxygen  reaction  is  suppressed,  and  the  dissolution  reaction  is  too  slow 
to  form  sufficient  cuprous  ions.  This  phenomenon  has  important  consequences  for 
metals  which  are  exposed  to  differential  mass  transfer. 

Differential  mass  transfer  in  a corrosion  system  will  cause  reactant  or  product 
concentrations  to  have  a spatial  dependence.  Differential  convective  mass  transfer 
is  one  mechanism  for  velocity  enhanced  corrosion;  local  anodes  can  occur  in  flow 
enhanced  areas.  If  the  metal  is  in  a regime  where  a low  anodic  current  will  prevent 
the  formation  of  a film  or  remove  one  existing,  then  a local  anode  can  be  sustained. 
The  results  of  this  effect  would  be  difficult  to  distinguish  from  the  apparent  shear 
removal  of  a film.  Fortunately,  the  remainder  of  the  metal  surface  would  still  be 
covered  by  a film  which  may  inhibit  the  reduction  of  oxygen.  If  a local  anode  (e.g. 
a pit)  could  support  a sufficiently  high  current,  then  a film  could  be  reformed. 
The  local  anodes  would  be  self  healing  because  the  metal  ion  concentration  would 
increase  to  the  point  of  film  formation. 

6. 1.3. 2 Porous  film  mass  transfer  layer 

The  effect  of  a porous  film  mass  transfer  layer  on  the  surface  of  the  electrode 
was  added  to  the  model.  The  equations  for  this  region  are  the  same  as  those  in 
the  hydrodynamic  mass  transfer  layer  except  for  two  changes.  The  fluid  velocity 
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within  the  film  was  removed,  and  the  diffusivities  were  multiplied  by  a porosity 
factor. 

The  steady  state  dissolution  of  copper  covered  with  a 10//m  film  of  10%  porosity 
was  calculated  at  63mA/cm2  anodic  current  for  pH  values  of  1 and  7.  This  current 
value  is  the  same  as  was  used  for  the  calculation  of  Figures  6.11,  6.12,  and  6.13 
which  represent  a bare  metal  surface.  The  current  for  both  cases  was  chosen  to  be 
close  to  the  limiting  current  plateau  where  a porous  salt  film  is  expected  to  form. 
The  plots  in  Figures  6.16,  6.17,  and  6.18  represent  the  concentration  profiles  after 
the  film  has  formed.  Since  the  film  composition  is  expected  to  depend  on  pH  (see 
Figure  6.14),  the  equilibrium  between  solid  and  dissolved  species  was  not  included; 
the  film  is  considered  inert  for  the  calculations.  Although  the  current  is  just  below 
that  needed  for  formation  of  the  chloride  film,  the  precipitation  of  the  film  would 
cause  the  current  to  decrease  if  the  potential  were  held  constant.  The  current  at  a 
bare  electrode  was  just  below  that  needed  for  formation  of  the  chloride  film  where 
the  concentrations  did  not  exceed  their  saturation  values.  However,  once  the  film 
forms,  the  current  drops.  Therefore,  the  concentrations  calculated  at  63mA/cm2 
in  the  presence  of  a film  are  above  saturation  levels  (see  discussion  of  Figure  4.3). 

The  concentration  profiles  of  the  cuprous  ion  and  its  two  chloride  complexes 
at  the  two  pH  values  are  shown  in  Figure  6.16.  The  concentrations  are  high 
relative  to  those  calculated  without  the  presence  of  a film  and  do  not  depend  on 
pH.  The  plot  of  solution  potential,  <f>,  shows  that  migration  must  play  a part  in 
the  transport  of  ions  from  the  electrode  surface.  The  relative  concentrations  of 
the  two  chloride  complexes  have  reversed  when  compared  with  the  bare  metal 
case.  The  concentration  profiles  of  the  hydronium,  hydroxyl,  sodium,  and  chloride 
ions  are  shown  in  Figure  6.17.  The  chloride  ion  surface  concentration  is  reduced 
from  its  bulk  solution  value  by  an  order  of  magnitude  which  makes  an  assumption 
of  constant  chloride  concentration  invalid.  This  shows  that  a model  designed  to 


106 


simulate  copper  dissolution  on  the  current  limiting  plateau  should  include  the 
reaction  and  transport  of  chloride  ions  explicitly.  Note  that  the  constraint  of 
electroneutrality  caused  a significant  change  in  the  concentration  of  sodium  ions. 
Recall  that  sodium  is  not  involved  in  any  reactions,  and  its  total  flux  is  zero.  The 
change  in  pH  is  most  likely  affected  by  the  production  of  cupric  hydroxide  complex. 
The  concentration  profiles  of  the  cupric  ion,  its  hydroxide  complex,  and  oxygen  are 
shown  in  Figure  6.18.  The  oxygen  reduction  was  inhibited  by  the  anodic  potential 
so  its  concentration  is  constant.  The  precipitation  of  CuCl,  Cu20,  CuOH,  CuO, 
CuOH2,  and  Cu2(OH)3C1  was  predicted  at  pH  7,  and  CuCl  was  predicted  at  pH  1. 


6. 1.3. 3 High  field  conduction  layer 

The  behavior  of  the  oxide  on  the  surface  of  copper  in  alkaline  solutions  was 
modeled  by  a high  field  conduction  expression  which  replaced  the  Butler- Volmer 
equation  for  the  copper  dissolution  reaction. 

The  calculated  concentration  profiles  for  the  system  are  shown  in  Fig- 
ures 6.19,  6.20,  and  6.21.  The  metal  potential  was  set  at  the  experimental  values 
of  100mV(NHE).  The  high  field  constants,  Ahfcandahfc/^oxide,  were  estimated  at 
2.4  x 1011mol/cm2  and  104  V"1.  The  resulting  corrosion  current  was  3.45/iA/cm2. 
The  pH  was  set  at  9.4  where  the  concentrations  of  cuprous  ion  and  hydroxide 
ion  are  at  saturation  levels.  Therefore,  the  film  is  not  growing  or  decaying.  The 
thickness  of  the  oxide  is  included  in  the  equations  at  the  metal  boundary  condition 
and  does  not  show  up  explicitly  on  the  axis  for  distance.  It  would  be  too  small  to 
appear  on  the  scale  of  distance  if  it  were  plotted. 

The  concentrations  of  the  Cu(I)  species  shown  in  Figure  6.19  are  small,  and 
the  concentrations  of  the  two  cuprous  chloride  complexes  are  about  equal.  The 
solution  potential  is  small  and  therefore  not  important  to  the  transport  of  ions. 
The  concentration  profiles  shown  in  Figure  6.20  demonstrate  that  a small  pH 
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change  occurs  at  the  surface  of  the  electrode  because  of  the  oxygen  reduction 
products.  The  concentrations  of  sodium  and  chloride  ion  are  almost  constant. 
The  concentrations  of  the  cupric  species  shown  in  Figure  6.21  are  not  large  enough 
to  cause  the  precipitation  of  any  solids,  and  the  oxygen  level  is  constant. 

6. 1.3. 4 Porous  film  and  high  field  conduction  layer 

The  effect  of  adding  a porous  film  on  the  high  field  conduction  oxide  layer 
is  shown  in  Figures  6.22,  6.23,  and  6.24.  All  of  the  parameters  used  in  Fig- 
ures 6.19,  6.20,  and  6.21  were  kept  the  same  for  the  present  calculations.  The 
resulting  current  dropped  to  3.35/xA/cm2,  but  as  can  be  seen  by  Figure  6.22,  the 
concentration  of  cuprous  ion  increased  about  an  order  of  magnitude  while  the  con- 
centration of  hydroxide  stayed  about  the  same.  Growth  of  the  oxide  is  expected 
under  this  condition  resulting  in  decreased  current.  In  general,  the  porous  film 
caused  an  increase  in  the  concentrations  of  produced  species  and  a decrease  in 
consumed  species.  This  is  expected  because  of  the  addition  of  the  mass  transfer 
resistance  associated  with  the  film  and  is  consistent  with  the  calculations  based  on 
the  addition  of  a porous  film  on  a bare  metal  surface. 
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Table  6.4:  Oxygen  Limited  Currents  (mAcnT2) 


PH=1 

pH=3.6 

pH=3.7 

pH=5 

ll,a 

2.74 

2.74 

2.74 

2.74 

ii,c 

-2.20 

-2.20 

-2.20 

-2.20 

^corr 

0.538 

0.538 

0.538 

0.538 

io2 

-0.538 

-0.538 

-0.538 

-0.538 

12, a 

2.3e-2 

2.3e-2 

2.3e-2 

2.3e-2 

*2,0 

-2.3e-2 

-2.3e-2 

-2.3e-2 

-2.3e-2 

^2, net 

4e-ll 

4e-ll 

2.6e-9 

3.2e-6 

pH=7 

pH=9 

pH=ll 

^l,a 

2.74 

2.74 

2.74 

ii,c 

-2.20 

-2.20 

-2.20 

Icon 

0.538 

0.538 

0.538 

io2 

-0.538 

-0.538 

-0.538 

i2,a 

2.2e-2 

2.3e-2 

2.3e-2 

!2,c 

-2.2e-2 

-2.3e-2 

-2.3e-2 

1 2,  net 


3.5e-6 


3.2e-6 


2.7e-4 
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Table  6.5:  Below  Oxygen  Limited  Currents  (mAcm-2) 


PH=1 

pH=3 

pH=5 

pH=5.2 

2.9e-2 

2.9e-2 

2.9e-2 

2.9e-2 

ii,c 

-l.le-5 

-l.le-5 

-l.le-5 

-l.le-5 

1 corr 

2.9e-2 

2.9e-2 

2.9e-2 

2.9e-2 

i o2 

-2.9e-2 

-2.9e-2 

-2.9e-2 

-2.9e-2 

l2,a 

1.3e-2 

1.3e-2 

1.3e-2 

1.3e-2 

12, c 

-1.3e-2 

-1.3e-2 

-1.3e-2 

-1.3e-2 

^2, net 

2e-10 

2e-10 

2e-10 

7e-10 

pH=7 

pH=9 

pH=ll 

ll,o 

2.9e-2 

2.9e-2 

2.9e-2 

ii,c 

-l.le-5 

-l.le-5 

-l.le-5 

Icorr 

2.9e-2 

2.9e-2 

2.9e-2 

i o2 

-2.9e-2 

-2.9e-2 

-2.9e-2 

^2,0 

1.2e-2 

1.3e-2 

1.2e-2 

l2,c 

-1.2e-2 

-1.3e-2 

-l.le-2 

^2, net 


3.6e-9  1.4e-8 


6.7e-4 


110 


Distance,  fi m 


Figure  6.1:  Oxygen  concentration  profiles  calculated  for  500,  1000,  2000  rpm  disk 
rotation  speeds  at  oxygen  diffusion  limited  current. 
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Figure  6.2:  Cu(I)  concentration  and  solution  potential  profiles  calculated  at 
pH=  1,  3.6,  3.7,  5,  7,  9,  and  11  at  lOOOrpm  and  oxygen  diffusion  limited  current. 
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Figure  6.3:  Hydronium,  hydroxyl,  sodium,  and  chloride  ion  concentration  profiles 
calculated  at  pH=  1,  3.6,  3.7,  5,  7,  9,  and  11  at  lOOOrpm  and  oxygen  diffusion 
limited  current. 
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Figure  6.4:  Cu(II)  concentration  profiles  calculated  at  pH=  1,  3.6,  3.7,  5,  7,  9,  and 
11  at  lOOOrpm  and  oxygen  diffusion  limited  current. 


Oxygen  Content 


114 


1 .00  r 


1 1 r 


“I  i r 


O 

□ 

A 


O Cu,(0H),CI 
□ CuOH, 


A CuO 
* * CuOH 


0.10  - 


0.01 


J L 


4 


J L 


J L 


6 8 

pH 


10 


12 


Figure  6.5:  The  effect  of  oxygen  content  on  film  formation  at  oxygen  diffusion 
limited  current.  Each  film  is  predicted  to  form  in  the  region  above  the  line  corre- 
sponding to  its  composition. 
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Figure  6.6:  Oxygen  concentration  profile  calculated  at  lOOOrpm  and  5%  of  oxygen 
diffusion  limited  current. 
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Figure  6.7:  Cu(I)  concentration  and  solution  potential  profiles  at  pH=  1,  3,  5,  5.2, 
7,  9,  and  11  at  lOOOrpm  and  5%  of  oxygen  diffusion  limited  current. 
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Figure  6.8:  Hydronium,  hydroxyl,  sodium,  and  chloride  ion  concentration  profiles 
at  pH=  1,  3,  5,  5.2,  7,  9,  and  11  at  lOOOrpm  and  5%  of  oxygen  diffusion  limited 
current. 
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Figure  6.9:  Cu(II)  concentration  profiles  at  pH=  1,  3,  5,  5.2,  7,  9,  and  11  at 
lOOOrpm  and  5%  of  oxygen  diffusion  limited  current. 
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Figure  6.10:  Simulated  current /potential  curve  for  copper  dissolution  in  linear  and 
semilog  formats. 
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Figure  6.11:  Cu(I)  concentration  and  solution  potential  profiles  at  pH=  1 and  7 
at  lOOOrpm  and  63mA  cm-2. 
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Figure  6.12:  Hydronium,  hydroxyl,  sodium,  and  chloride  ion  concentration  profiles 
at  pH=  1 and  7 at  lOOOrpm  and  63mA  cm-2. 
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Figure  6.13:  Cu(II)  concentration  profiles  at  pH=  1 and  7 at  lOOOrpm 

and  63mA  cm-2. 
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Figure  6.14:  The  effect  of  anodic  current  on  predicted  film  formation.  Each  film 
is  predicted  to  form  in  the  region  above  and  to  the  right  of  the  line  corresponding 
to  its  composition. 
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Figure  6.15:  The  effect  of  low  anodic  current  on  predicted  film  formation.  Each 
film  is  predicted  to  form  in  the  region  to  the  right  of  the  line  corresponding  to  its 
composition. 
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Figure  6.16:  Cu(I)  concentration  and  solution  potential  profiles  at  pH=  1 and  7 
at  lOOOrpm  and  63mA  cm-2  with  10^m  film  of  10%  porosity. 
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Figure  6.17:  Hydronium,  hydroxyl,  sodium,  and  chloride  ion  concentration  profiles 
at  pH=  1 and  7 at  lOOOrpm  and  63mA  cm-2  with  10//m  film  of  10%  porosity. 
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Figure  6.18:  Cu(II)  and  oxygen  concentration  profiles  at  pH=  1 and  7 at  lOOOrpm 
and  63mA  cm-2  with  10/zm  film  of  10%  porosity. 
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Figure  6.19:  Cu(I)  concentration,  and  solution  potential  profiles  at  pH=  9.4  for 
copper  covered  with  an  oxide  layer  modeled  by  the  high  field  conduction  model. 
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Figure  6.20:  Hydronium,  hydroxyl,  sodium,  and  chloride  ion  concentration  profiles 
at  pH=  9.4  for  copper  covered  with  an  oxide  layer  modeled  by  the  high  field 
conduction  model. 
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Figure  6.21:  Cu(II)  and  oxygen  concentration  profiles  at  pH=  9.4  for  copper  cov- 
ered with  an  oxide  layer  modeled  by  the  high  field  conduction  model. 
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Figure  6.22:  Cu(I)  concentration  and  solution  potential  profiles  for  copper  at  pH= 
9.4  covered  by  a duplex  film  using  the  high  field  conduction  model  for  an  oxide 
under  a 10/rm  film  of  10%  porosity. 
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Figure  6.23:  Hydronium,  hydroxyl,  sodium,  and  chloride  ion  concentration  profiles 
for  copper  at  pH=  9.4  covered  by  a duplex  film  using  the  high  field  conduction 
model  for  an  oxide  under  a 10//m  film  of  10%  porosity. 


[Cu 


133 


1.5x10  16 
1 .0x1  0~  1 6 

5.0x10_17 
0 

0 20  40  60  80  100120  0 20  40  60  80  100120 


Distance,  /xm 


Distance,  /xm 


Distance,  /xm 


Figure  6.24:  Cu(II)  and  oxygen  concentration  profiles  for  copper  at  pH=  9.4  cov- 
ered by  a duplex  film  using  the  high  field  conduction  model  for  an  oxide  under  a 
10/rni  film  of  10%  porosity. 
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6.2  Electrochemical  Impedance  Model 

A physico-electrochemical  model  for  sinusoidal  steady  state  copper  dissolution 
was  developed  and  regressed  to  experimental  impedance  spectroscopy  data  [6]. 
The  use  of  nonlinear  complex  regression  routines  to  fit  a physico-electrochemical 
model  directly  to  impedance  data  is  not  common  and  has  not  been  previously 
performed  for  the  copper  system. 

To  explore  whether  the  impedance  data  conform  to  a system  in  which  mass 
transfer  in  both  a film  and  a hydrodynamic  boundary  layer  is  important,  the 
model  was  designed  to  treat  the  dissolution  of  copper  and  the  convective  transport 
of  the  cuprous  ion  away  from  the  electrode  surface.  A schematic  of  the  system 
modeled  is  shown  in  Figure  6.25. 


6.2.1  Governing  Equations 


The  equations  used  for  the  electrochemical  impedance  model  account  for  the 
presence  of  two  diffusion  layers.  Transport  through  the  film  (0  < z < <5f)  is  given 

by 


dc_  d2c 
dt~Dfd^ 


(6.60) 


Transport  through  the  bulk  (z  > S{)  includes  the  rotating  disk  axial  velocity  term 
and  is  given  by 

dc  d2c  dc 

dt~  Dbd?~Vzlh  ^6'61) 

Concentration  can  be  expressed  by  the  sum  of  steady  state  and  transient  compo- 
nents, 

c=  c+  AcejW  (6.62) 

where 


Ac  - Cr  T jCj 


(6.63) 
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Figure  6.25:  Schematic  of  the  corrosion  system  simulated  by  the  impedance  model 
which  accounts  for  the  presence  of  a porous  film. 
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and  is  a function  of  position  only.  A Tafel  expression  was  used  at  the  metal/film 
interface,  the  fluxes  and  concentrations  were  equated  at  the  film/electrolyte  inter- 
face, and  a bulk  concentration  was  used  far  away  from  the  film. 

6.2.2  Numerical  Method 

The  system  of  equations  were  solved  using  the  same  techniques  as  those  used 
for  the  steady  state  model.  The  equations  were  written  in  finite  difference  form 
using  a central  difference  approximation  and  solved  numerically  using  the  ‘BAND’ 
algorithm  developed  by  J.  Newman  [91].  The  resulting  concentrations  were  used  to 
calculate  the  impedance,  and  a complex  fitting  program  developed  by  L.  Garcia- 
Rubio  was  used  to  fit  the  model  directly  to  experimental  impedance  data. 

6.2.3  Results  of  Model  Regression 

The  model  was  regressed  to  data  sets  collected  at  pH  values  of  1,  7,  and  12. 
To  illustrate  the  method  used  for  regression,  the  model  was  regressed  to  the  data 
used  for  the  measurement  model  analysis.  It  was  therefore  known  that  the  data 
satisfy  the  Kramers-Kronig  relations.  This  is  a prerequisite  for  a good  fit  and  is 
often  necessary  for  convergence  of  the  regression  routine.  The  model  was  regressed 
to  the  data  in  three  different  ways.  The  results  of  the  regressions  are  shown  in 
Table  6.6.  The  calculated  parameters  are  the  thickness  of  the  porous  film  (£y,  cm), 
the  porosity  of  the  film,  the  diffusivity  of  cuprous  ions  in  the  bulk  (Db,cm2s-1), 
the  double  layer  capacity  (Cai,  Fern-2),  the  heterogeneous  rate  constant  (k0,s-1), 
and  the  solution  resistance  (R^fi).  The  confidence  intervals  for  the  parameters 
represent  one  standard  deviation. 

The  quality  of  fit  for  regression  performed  without  weighting  of  the  data  is 
shown  in  Figures  6.26  and  6.27.  The  relative  residuals  are  shown  in  Figure  6.28. 
Note  that  the  relative  residuals  deviate  strongly  at  high  frequencies.  This  is  at  least 
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partly  the  result  of  not  using  weighting:  the  data  points  at  high  frequencies  cannot 
contribute  equally  to  the  regression  because  their  magnitude  is  small.  For  this 
particular  regression  and  data  set,  an  advantage  was  realized  through  this  effect. 
From  the  plot  shown  in  Figure  6.27,  the  dominant  time  constant  appears  to  lie  at 
a low  frequency.  The  calculated  transport  parameters  also  manifest  themselves  at 
low  frequencies.  Therefore,  high  confidence  in  the  parameters  was  achieved  which 
is  represented  by  the  small  standard  deviations  listed  in  the  no  weighting  column 
of  Table  6.6.  The  cyclic  nature  of  the  residuals  leads  to  the  conclusion  that  the 
model  does  not  adequately  represent  the  system  from  which  the  data  was  collected. 
For  a good  fit  of  a model  that  sufficiently  represents  the  processes  of  the  system, 
the  residuals  should  appear  random  and  lie  close  to  the  estimated  error  structure 
for  the  data.  The  non-physical  nature  of  the  parameters  (particularly  Db ) support 
this  conclusion. 


Table  6.6:  Impedance  Model  Regression  Results 


Parameter 

No  Weighting 

Magnitude 

Error  Structure 

log(6f) 

-3.28  ±0.02 

-3.13  ±0.08 

-3.24  ±0.07 

log(porosity) 

-0.80  ±0.01 

-0.72  ±0.13 

-0.74  ±0.07 

log  (Db) 

-4.29  ± 0.02 

-4.13  ±0.13 

-4.24  ±0.10 

log(Cdi) 

-4.59  ± 0.01 

-4.67  ±0.01 

-4.60  ±0.01 

log(fco) 

-4.29  ±0.01 

-4.27  ±0.09 

-4.33  ± 0.04 

Rs 

11.5  ±0.27 

10.9  ±0.20 

11.4  ±0.08 

The  quality  of  fit  for  regression  performed  with  weighting  based  on  the  magni- 
tude of  the  data  is  shown  in  Figures  6.29  and  6.30.  The  relative  residuals  are  shown 
in  Figure  6.31.  The  residuals  are  more  evenly  distributed  than  those  calculated 
without  weighting,  but  they  are  still  large  and  cyclic  in  nature.  The  calculated 
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parameters  have  a larger  confidence  interval  than  those  obtained  from  the  regres- 
sion without  weighting.  This  is  because  the  high  frequency  portion  of  the  spectrum 
does  not  contain  as  much  information  for  calculation  of  the  parameters  of  interest 
as  the  low  frequency  part,  and  the  weighting  gives  equal  importance  to  all  of  the 
data  points.  It  can  also  be  inferred,  that  the  impedance  data  at  high  frequencies 
are  not  adequately  simulated  by  the  model.  This  is  not  surprising  since  the  im- 
pedance model  does  not  include  all  of  the  kinetic  processes  that  are  known  to  be 
present. 

The  quality  of  fit  for  regression  performed  with  weighting  based  on  the  esti- 
mated error  structure  of  the  data  is  shown  in  Figures  6.32  and  6.33.  The  relative 
residuals  are  shown  in  Figure  6.28.  From  the  residuals  and  the  calculated  confi- 
dence intervals,  the  quality  of  fit  is  judged  best  for  weighting  using  the  error  struc- 
ture. However,  the  residuals  are  only  slightly  smaller  than  those  of  Figures  6.28 
and  6.31.  They  also  appear  cyclic. 

The  conclusion  drawn  from  the  regressions  of  the  model  to  impedance  data  is 
that  the  processes  which  contribute  to  the  spectrum  have  not  been  adequately  or 
sufficiently  simulated.  This  is  not  surprising  since  many  of  the  processes  that  were 
shown  to  be  important  through  the  results  of  the  steady  state  model  have  not  been 
included. 

The  corrosion  of  copper  in  0.5M  chloride  solutions  at  pH  1 was  predicted  by 
the  steady  state  model  to  be  film  free.  As  a test,  the  effects  of  the  film  were  re- 
moved and  the  model  was  then  regressed  to  the  same  data.  Without  the  film,  the 
model  calculates  the  response  of  a finite  diffusion  length  Warburg  element  with  a 
double  layer  capacitance  in  parallel  and  a solution  resistance  in  series.  The  model 
has  an  advantage  over  the  use  of  a Warburg  element  because  it  calculates  the 
concentration  profile  within  the  rotating  disk  diffusion  layer  from  the  one  dimen- 
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sional  velocity  profile  at  a disk.  The  Warburg  diffusion  element  assumes  a Nernst 
diffusion  layer  for  the  disk  and  is  therefore  less  accurate. 

The  results  of  the  regression  are  shown  in  Figures  6.35,  6.36,  and  6.37.  The 
calculated  parameters  are  listed  in  Table  6.7.  All  of  the  regressions  in  the  table 
were  performed  with  weighting  based  on  the  estimated  error  structure  of  the  data. 
The  data  and  the  model  in  impedance  plane  and  impedance  versus  frequency 
plots  are  shown  in  Figure  6.35.  The  shape  of  the  model  curve  resembles  the 
response  of  a finite  diffusion  length  Warburg  element.  However,  the  data  are  not 
adequately  represented  by  this  shape.  The  relative  residuals  shown  in  Figure  6.36 
are  large  (relative  to  those  found  through  the  measurement  analysis)  and  cyclic  in 
nature.  The  calculated  concentration  profile  shown  in  Figure  6.37  could  represent 
the  cuprous  ion,  the  sum  of  the  cuprous  ion  complexes,  or  the  sum  of  all  copper 
species  in  this  simplified  model.  The  model  is  too  general  to  allow  the  species 
to  be  distinguished.  Therefore,  the  concentration  values  are  not  significant,  but 
the  profile  represents  the  transport  of  chemical  species  away  from  the  electrode 
surface.  The  profile  shown  in  Figure  6.37  is  the  calculated  concentration  of  one 
species  produced  at  the  surface  of  a rotating  disk  electrode. 

Table  6.7:  Impedance  Model  Regression  Results  at  pH  1,  7,  and  12 


Parameter 

pH  1 

pH  7 

pH  12 

log(<$f) 

0.00 

-5.41  ± 0.04  -3.34  ± 0.00 

log(porosity) 

na 

-2.40  ±0.03  -1.46  ±0.05 

log(Db) 

-4.13  ±0.05 

-4.61  ±0.04  -2.20  ±0.00 

log(Cdi) 

-4.61  ±0.02 

0.00 

-5.27  ±0.02 

log(k0) 

-6.72  ±0.03 

-2.68  ±0.01 

-1.55  ±0.05 

R, 

10.9  ±0.4 

15.8  ±0.03 

6.89  ±0.00 
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The  regression  of  the  model  including  the  effect  of  a porous  film  to  experimen- 
tal data  collected  at  a O.OmV  (SCE)  anodic  potential  with  a solution  of  pH  7 is 
shown  in  Figure  6.38.  The  residuals  are  shown  in  Figure  6.39,  and  the  concentra- 
tion profile  is  shown  in  Figure  6.40.  From  examination  of  the  impedance  plots, 
the  model  seems  to  provide  a good  fit  to  the  data.  The  real  residuals  shown  in 
Figure  6.39are  small  and  appear  almost  random  (two  criteria  for  a good  fit).  How- 
ever, the  imaginary  residuals  are  large  and  display  a peak  near  100Hz.  This  peak 
may  be  caused  by  frequency  dispersion  which  is  the  result  of  a non-uniform  ohmic 
potential  drop  on  a rotating  disk  [94].  The  dispersion  becomes  important  as  the 
solution  resistance  (high  frequency  real  axis  intercept)  becomes  large  relative  to 
the  polarization  resistance  (low  frequency  real  axis  intercept  minus  the  solution 
resistance).  The  data  of  Figure  6.38  show  a solution  resistance  of  about  160,  and 
a polarization  resistance  of  about  50.  The  high  frequency  semicircle  appears  de- 
pressed which  is  an  indication  of  frequency  dispersion.  The  data  for  a disk  are 
expected  to  distort  at  high  frequencies  resulting  in  a non-semicircular  impedance 
plane  plot  [94].  Since  the  impedance  model  does  not  account  for  the  radial  current 
distribution  on  a disk,  the  effect  of  dispersion  will  not  be  fit  by  the  model  resulting 
in  the  errors  represented  by  the  large  residuals  shown  in  Figure  6.39. 

The  impedance  model  was  regressed  to  the  data  shown  in  Figure  6.41  collected 
with  a solution  of  pH  12  and  a 50mV  anodic  potential  bias.  Measurement  model 
analysis  showed  that  the  data  did  not  completely  meet  the  criteria  necessary  for 
judging  a data  set  consistent  with  the  Kramers-Kronig  relations.  Non-stationarity 
most  likely  exists  over  the  impedance  spectrum  which  arose  from  film  instability. 
Since  the  data  were  collected  a short  time  after  application  of  an  anodic  potential, 
a steady  state  film  thickness  had  most  likely  not  been  reached.  Since  the  anodic 
potential  causes  rapid  dissolution  of  the  metal,  the  data  must  be  collected  before 
the  impedance  response  is  affected  by  a change  in  electrode  geometry.  The  model 
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could  not  be  regressed  to  data  at  open  circuit  potentials  (which  was  stable)  proba- 
bly because  the  porous  film  model  could  not  account  for  the  behavior  of  the  oxide 
(or  hydroxide)  film.  An  impedance  model  using  a high  field  conduction  approxi- 
mation may  provide  a fit.  At  anodic  potentials,  the  oxide  may  be  broken  up  into  a 
porous  matrix  which  is  represented  by  the  enormous  drop  in  polarization  resistance 
allowing  the  model  which  includes  the  effect  of  a porous  film  to  provide  a relatively 
good  fit  to  the  data.  The  calculated  concentration  profile  for  the  regression  shown 
in  Figure  6.43  suggests  that  the  hydrodynamic  diffusion  layer  contributes  to  the 
impedance  response  of  copper  in  pH  12  chloride  solution  at  anodic  potentials. 
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Figure  6.26:  Impedance  model  fit  to  data  from  copper  at  lOOOrpm  at 

Eoc  = -230  mV  (SCE),  pH=l,  and  21  Fours  immersion.  Circles  are  data.  Lines 

are  the  model.  No  weighting  was  used  for  the  regression. 
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Figure  6.27:  Impedance  model  fit  to  data  from  copper  at  lOOOrpm  at 
E oc  — -230  mV  (SCE),  pH=l,  and  21  hours  immersion.  Circles  are  data.  Lines 
are  the  model.  No  weighting  was  used  for  the  regression. 
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Figure  6.28:  Residuals  of  impedance  model  fit  to  data  from  copper  at  lOOOrpm  at 
Eoc  = -230  mV  (SCE),  pH=l,  and  21  hours  immersion.  Circles  are  data.  Lines  are 
the  model.  No  weighting  was  used.  Dashed  lines  are  the  estimated  error  structure. 
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Figure  6.29:  Impedance  model  fit  to  data  from  copper  at  lOOOrpm  at 
E oc  = -230  mV  (SCE),  pH=l,  and  21  hours  immersion.  Circles  are  data.  Lines 
are  the  model.  Weighting  based  on  data  magnitude  was  used. 
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Figure  6.30:  Impedance  model  fit  to  data  from  copper  at  lOOOrpm  at 

Eoc  = -230  mV  (SCE),  pH=l,  and  21  hours  immersion.  Circles  are  data.  Lines 

are  the  model.  Weighting  based  on  data  magnitude  was  used. 
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Figure  6.31:  Residuals  of  impedance  model  fit  to  data  from  copper  at  lOOOrpm  at 
Eoc  — 230  mV  (SCE),  pH=l,  and  21  hours  immersion.  Circles  are  data.  Lines 
are  the  model.  Weighting  based  on  data  magnitude  was  used. 
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Figure  6.32:  Impedance  model  fit  to  data  from  copper  at  lOOOrpm  at 

Eoc  = -230  mV  (SCE),  pH=l,  and  21  hours  immersion.  Circles  are  data.  Lines 

are  the  model.  Weighting  based  on  the  estimated  error  structure  was  used. 
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Figure  6.33:  Impedance  model  fit  to  data  from  copper  at  lOOOrpm  at 

Eoc  = -230  mV  (SCE),  pH=l,  and  21  hours  immersion.  Circles  are  data.  Lines 

are  the  model.  Weighting  based  on  the  estimated  error  structure  was  used. 
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Figure  6.34:  Impedance  model  fit  to  data  from  copper  at  lOOOrpm  at 

Eoc  = -230  mV  (SCE),  pH=l,  and  21  hours  immersion.  Circles  are  data.  Lines 

are  the  model.  Weighting  based  on  the  estimated  error  structure  was  used. 
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Figure  6.35:  Impedance  model  fit  to  data  from  copper  at  lOOOrpm  at 
Eoc  = -230  mV  (SCE),  pH=l,  and  21  hours  immersion.  The  effect  of  a film  was 
not  included.  Circles  in  the  impedance  plane  plot  are  complex  data.  Circles  in  the 
lower  plot  are  imaginary  data,  and  triangles  are  real  data.  Lines  are  the  model. 
Weighting  based  on  the  estimated  error  structure  was  used. 
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Figure  6.36:  Residuals  of  impedance  model  fit  to  data  from  copper  at  lOOOrpm  at 
Eoc  = -230  mV  (SCE),  pH=l,  and  21  hours  immersion.  The  effect  of  a film  was 
not  included.  Weighting  based  on  the  estimated  error  structure  was  used. 
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Figure  6.37:  Concentration  profile  from  model  fit  to  data  from  copper  at  lOOOrpm 
and  Eoc  = -230  mV  (SCE),  pH=l,  and  21  hours  immersion.  The  effect  of  a film 
was  not  included.  Weighting  based  on  the  estimated  error  structure  was  used. 
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Figure  6.38:  Impedance  model  fit  to  data  from  copper  at  lOOOrpm  at 
0.0  mV  (SCE)  and  pH=7.  Circles  in  the  impedance  plane  plot  are  complex  data. 
Circles  in  the  lower  plot  are  imaginary  data,  and  triangles  are  real  data.  Lines  are 
the  model.  Weighting  based  on  the  estimated  error  structure  was  used. 
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Figure  6.39:  Residuals  of  impedance  model  fit  to  data  from  copper  at  lOOOrpm  at 
0.0  mV  (SCE)  and  pH=7.  Weighting  based  on  the  estimated  error  structure  was 
used. 
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Figure  6.40:  Concentration  profile  from  model  fit  to  data  from  copper  at  lOOOrpm 
at  0.0  mV  (SCE)  and  pH=7.  Weighting  based  on  the  estimated  error  structure 
was  used. 
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Figure  6.41:  Impedance  model  fit  to  data  from  copper  at  800rpm  at  -135mV  (SCE) 
and  pH=12.  Circles  in  the  impedance  plane  plot  are  complex  data.  Circles  in  the 
lower  plot  are  imaginary  data,  and  triangles  are  real  data.  Lines  are  the  model. 
Weighting  based  on  the  estimated  error  structure  was  used. 
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Figure  6.42:  Residuals  of  impedance  model  fit  to  data  from  copper  at  800rpm  at 

-135mV  (SCE)  and  pH=12.  Weighting  based  on  the  estimated  error  structure  was 
used. 
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Figure  6.43:  Concentration  profile  from  model  fit  to  data  from  copper  at  800rpm 
at  -13omV  (SCE)  and  pH=12.  Weighting  based  on  the  estimated  error  structure 
was  used. 


CHAPTER  7 
CONCLUSIONS 

This  work  has  shown  that  existing  models  in  the  literature  do  not  adequately 
represent  the  corrosion  system.  The  effects  of  pH,  reaction  kinetics,  degree  of 
aeration,  and  applied  current,  on  the  corrosion  of  copper  in  0.5M  Cl-  solution 
were  identified  experimentally  and  simulated  numerically.  The  resistances  associ- 
ated with  mass  transfer  through  the  electrolyte,  through  a porous  film,  and  ionic 
conduction  through  a solid  film  were  included.  A physico-electrochemical  model 
predicted  large  changes  in  pH  near  the  electrode  surface  in  the  presence  of  oxygen. 
The  conditions  under  which  each  of  six  films  may  form  on  copper  have  been  identi- 
fied which  led  to  a proposed  mechanism  for  local  film  removal  based  on  differential 
convective  mass  transfer  which  may  account  for  the  velocity  enhanced  corrosion  of 
copper  in  chloride  solutions. 
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CHAPTER  8 

SUGGESTIONS  FOR  FUTURE  WORK 


The  physico-electrochemical  models  developed  in  this  work  were  guided  by  the 
results  of  experiments.  The  models  should  now  be  used  to  guide  a new  experimental 
program  to  test  the  accuracy  and  physical  validity  of  the  calculations.  Once  the 
importance  of  individual  processes  or  chemical  species  has  been  identified,  the 
models  could  be  refined. 

A series  of  experiments  conducted  at  pH  values  and  currents  at  the  predicted 
conditions  for  which  the  six  possible  films  may  precipitate  would  test  the  accuracy 
of  the  steady  state  model.  Abrupt  changes  in  the  electrochemical  behavior  could 
represent  the  formation  of  a particular  film.  The  precipitation  of  the  CuCl  film 
was  identified  in  this  work  by  potentiodynamic  behavior  and  visual  observation  of 
the  film  in  a pH  region  where  no  other  films  were  expected.  Other  films  may  be 
identified  by  experiments  that  could  include  but  are  not  limited  to  galvanostatic 
steps,  potentiodynamic  sweeps,  and  EIS  scans.  Chemical  analysis  of  the  films  may 
help  to  identify  the  composition  of  the  films,  but  the  unstable  nature  of  the  films 
require  in  situ  measurements. 

To  test  the  proposed  mechanism  for  film  dissolution  due  to  differential  mass 
transfer,  two  types  of  experiments  should  be  performed.  First,  the  film  dissolution 
behavior  at  low  anodic  currents  should  be  examined  in  the  predicted  pH  range.  If 
a film  existing  at  open  circuit  potential  decays  when  a small  anodic  potential  is 
applied,  then  a local  anode  resulting  from  differential  mass  transfer  may  also  suffer 
from  film  decay.  Comparison  of  polarization  resistances  might  be  sufficient  to  iden- 
tify this  effect.  The  second  type  of  experiment  would  involve  the  design  of  a cell  in 
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which  a local  anode  could  be  generated.  The  impinging  jet  experiment  conducted 
in  this  work  is  one  example,  but  the  results  were  not  sufficiently  conclusive. 

Once  the  film  compositions  have  been  examined  experimentally,  the  physico- 
electrochemical  steady  state  model  could  be  improved  by  including  the  solubility 
constants  for  solids  in  the  equations  for  the  films.  The  addition  of  film  thickness  as 
a variable  was  unsuccessfully  attempted  in  this  work.  This  variable  would  include 
the  equilibrium  constant  for  saturation  at  the  film/electrolyte  interface. 

To  increase  the  scope  of  the  steady  state  model,  the  calculations  could  be 
extended  to  exclude  chloride  ions.  The  corrosion  of  copper  in  pure  water  could  then 
be  simulated.  With  modifications  of  the  equilibrium  potentials  and  heterogeneous 
rate  constants,  it  may  also  be  possible  to  apply  the  model  to  a different  metal  and 
corrosion  system. 

The  model  for  the  electrochemical  impedance  could  be  enlarged  to  include 
some  of  the  species  and  phenomena  included  in  the  steady  state  model.  A possible 
problem  with  adding  more  parameters  is  that  an  experimental  impedance  spectrum 
may  not  contain  enough  information  about  the  corrosion  system  to  distinguish  the 
effects  of  the  processes.  Since  the  regression  of  the  model  developed  in  this  work 
provided  a good  fit  to  experimental  impedance  data,  the  parameters  resulting 
from  the  regression  of  a detailed  model  may  result  in  a slightly  better  fit  but  low 
parameter  confidence. 


Appendix  A 

FORTRAN  CODE  FOR  STEADY  STATE  CONCENTRATION 


The  program  listing  contains  all  of  the  necessary  code  to  calculate  the  results 
of  the  steady  state  model  presented  in  this  work.  The  program  was  compiled  by 
a FORTRAN77  compiler  on  a Digital  Equipment  DECstation  3100.  The  main 
program  calls  subroutines  containing  the  governing  equations  based  on  mesh  point 
(which  represents  distance  from  the  electrode  surface). 

The  boundary  conditions  at  the  surface  of  a copper  rotating  disk  electrode 
are  given  by  one  of  two  subroutines.  Subroutine  ‘ssbcl’  contains  the  boundary 
conditions  which  include  kinetic  expressions  for  the  copper  dissolution  reaction 
and  the  cupric  ion  formation  reaction.  Twelve  equations  (g(l)  through  g(12))are 
listed  where  g(7)  sets  the  oxygen  concentration  to  zero  for  the  diffusion  limited  case. 
To  include  the  effect  of  oxygen  reduction  kinetics,  the  existing  g(7)  was  replaced 
by  the  commented  g(7)  listed  before  the  existing  equation.  Subroutine  ‘ssbclhfc’ 
includes  the  effect  of  an  oxide  film  which  follows  high  field  conduction  or  Ohm’s 
law  (low  field)  behavior.  To  enable  this  subroutine,  the  ‘ssbcl’  call  statement  in 
the  main  program  was  modified  to  call  ‘ssbclhfc’.  The  thickness  of  the  oxide  is 
included  in  the  high  field  conduction  expression  and  therefore  exists  only  at  J=l. 

The  governing  equations  for  the  hydrodynamic  diffusion  layer  of  a rotating 
disk  electrode  are  contained  in  subroutine  ‘ssbulk’.  The  fluid  velocity  to  the  disk 
is  calculated  in  subroutine  ‘calcvz’.  The  equations  governing  the  behavior  of  a 
porous  film  are  listed  in  subroutine  ‘ssfilm’,  and  are  similar  to  those  in  ‘ssbulk’ 
except  for  the  addition  of  a porosity  factor  and  exclusion  of  fluid  velocity.  The 


163 


164 


subroutine  ‘ssinter’  couples  the  porous  film  and  hydrodynamic  regions  and  accounts 
for  the  difference  in  the  two  mesh  sizes. 

The  boundary  condition  representing  a distance  far  away  from  the  electrode 
is  listed  in  subroutine  ‘bcnj’.  It  sets  the  concentrations  of  each  species  in  the 
electrolyte  and  sets  potential  to  the  reference. 

The  matrix  setup  by  the  equations  and  boundary  conditions  was  solved  by  the 
subroutines  ‘BAND’  and  ‘MATINV’  which  were  developed  by  Newman  [12].  The 
program  was  iterated  until  all  values  for  g(i)  were  smaller  than  the  limit  set  by 
‘errmax’. 
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c 

c PROGRAM  TO  CALCULATE  THE  STEADY  STATE  CONCENTRATION  PROFILES  OF 
c 10  SPECIES,  METAL  POTENTIAL,  AND  SOLUTION  POTENTIAL 
c includes  subroutine  ssbcl  with  kinetic  expression  for  Cu  dissolution 
c and  subroutine  with  ssbclhfc  with  high  field  conduction  model 
c modify  equation  g(7)  of  either  subroutine  to  switch  between  oxygen 
c diffusion  limitation,  and  kinetic  expression  for  oxygen  reduction 
c 

implicit  double  precision(a-h,o-z) 

COMMON/BA/ N,NJ,A(12, 12), B(12, 12), C(12, 1001), D(12, 25), G(12) 

1 ,X(12,12),Y(12,12) 
common/var/conc(10,1001),phi(1001) 

1 ,Vcu(1001) 

common/par/dfb,Db(10),z(10),delf,delb,dhf,dhb,rpm 

1 ,rkl,rk2,rko2,Eql,Eq2,Eq3,Eq4,betaa,betac,area 

2 , pH, c2sat,vz, alpha, Ahfc,Vm,ij 
common/ const/ errmax , RTF , pi , Farad,  iter , itmax 
common/ curr  / current 

c I/O  FILES 

c input3  = input  parameters 
c tape55  = steady  state  concentration  profile 

c tape56  = check  for  quadratic  convergence  and  finite 

c difference  errors 

open(unit=  ll,file=  ’input3’,  status=  ’old’) 
open(unit = 55 , file  = ’ tape55  ’ , status  = ’old’) 
open(unit = 56 , file  = ’ tape56  ’ , status = ’old’) 

c concl  = Cu  + 

c conc2  = CuC12- 

c conc3  = Na+ 

c conc4  = Cl- 

c conc5  = H+ 

c conc6  = OH- 

c conc7  = 02 

c conc8  = CuC13(2-) 

c conc9  = Cu  + + 

c cone  10=  HCu02- 

c2sat  = le-6 
Farad  = 96487. 
pi  = 3.141592654 
deltae  = .01 
c area  = .384845 
area  = 1. 

rconst  = 8.3143 

temp  = 298. 

RTF  = rconst*temp/Farad 
taf  = RTF/0.5 
betaa  = taf 
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betac  = taf 

n=12 

nspec=n-2 

READ  (11,*)  alpha, Ahfc.Vm, current 
READ  (11,*)  rpm,dfb,delf,cap,rkl,rk2,rko2 
1 ,Eql,Eq2,Eq3,Eq4,pH 

READ  (11,*)  (Db(k),k=  l.nspec) 

READ  (11,*)  ( z(k),k=  l.nspec) 

READ  (11,*)  nj,itmax,errmax,kuery 

c convert  constants  from  M to  cm*  3 
Eql=Eql*l.e6 
Eq2  = Eq2*l.e9 
Eq4=Eq4*l.e-9 
current  - current/1000. 

rdelb=  1.8*Db(5)**0. 33333*0. 01036**0. 166666/(pi*rpm/30.)**0.5 
delb  = 2.5*rdelb 
ij  = (nj-l)/2 
dhf  = delf/(ij-l) 
dhb  = delb/(nj-ij) 
c current=current-l./1000 

c iterate  over  current  for  sweep 

c DO  69  kblo=l,30 

c current=current+l./1000 
c taf  = 1. /(0.5/RTF) 

iter  = 0 
do  112  k=l,nj 
c(n-l,k)=0.0 
c(n,k)=0.0 
tempk  = k*1.0 
tempnj  = nj*1.0 
IF(kuery.eq.l)  then 

READ  (55,*)  (zz,conc(  l,k),conc(2,k),conc(3,k), 

1 conc(  4,k),conc(5,k),conc(6,k), 

1 conc(  7,k),conc(8,k),conc(9,k), 

1 conc(10,k),  phi(k)  , Vcu(k)) 

ELSE 

phi(k)=0.1 
Vcu(k)  = -0.1 

conc(l,k)  = l.e-4*dexp(-tempk/tempnj)/1000. 

conc(2,k)  = l.e-18*dexp(-tempk/tempnj)/1000. 

conc(3,k)  = 0.5/1000. 

conc(4,k)  = 0.5/1000. 

conc(5,k)  = 10.**(-pH)/1000. 

conc(6,k)  = l.e-20/conc(5,k)/1000. 

conc(7,k)  = l.e-4/1000.*(tempk/tempnj) 

conc(8,k)  = l.e-18*dexp(-tempk/tempnj)/1000. 

conc(9,k)  =l.e-4/1000. 

conc(10,k)  = 1 .e-7*dexp(-tempk/tempnj)/1000. 

ENDIF 


do  112  i=l,(n-2) 
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c conc(i,k)=l.e-6 

c(i,k)=0.0 
112  continue 

IF(kuery.eq.l)  then 
close(55) 

open(unit =55,file=’tape55’,  status = ’old  ’ ) 
ENDIF 

c ***  main  part  of  routine  *** 

DO  51  WHILE(iter.ne.itmax) 
test  = 0. 
iter=iter+l 
print*,  ’iteration’ , iter 
do  19  i = l,n 
do  19  k=l,n 
x(i,k)=0.0 
y(i,k)=0.0 

19  continue 
do  25  j = l,nj 

do  20  i=l,n 
d(i,2*n  + l)=0.0 
g(i)=0.0 
do  20  k=l,n 
a(i,k)=0.0 
b(i,k)=0.0 
d(i,k)=0.0 
d(i,k+n)=0.0 

20  continue 
c define  zz 

IF(j.lt.ij)  then 
zz=dhf*(j-l) 

ELSE 

zz=delf+dhb*(j-ij) 

ENDIF 
call  calcvz(zz) 

IF(j.eq.l)  THEN 
call  ssbcl(j) 

ELSE  if(j.gt.l.and.j.lt.ij)  then 
call  ssfilm(j) 

ELSE  if(j.eq.ij)  then 
call  ssinter(j) 

ELSE  if(j.eq.nj)  then 
call  ssbcnj(j) 

ELSE 

call  ssbulk(j) 

END  IF 
call  band(j) 

c stop  iterating  when  g(i)=0 
DO  226  kk=l,n 

test = test + dabs(g(kk)) 

226  continue 


25  continue 

print*, ’Sum  of  all  G(i,j)  = ’.test 
IF(iter.eq.itmax) 

1 print*, ’did  not  converge  after  ’.itmax,’  iterations’ 

IF(test.eq.O.O)  iter=itmax 

***  update  concentrations  and  write  to  files  *** 

DO  33  k=l,nj 

***  assign  new  concentrations  *** 

IF(k.eq.50)  print,*, iter, conc(l,k),conc(2,k),conc(3,k) 

DO  42  i=l,n-2 

IF(c(i,k).lt.-0.999*conc(i,k))  c(i,k)  = -0.999*conc(i,k) 
IF(c(i,k).gt.  1000.*conc(i,k))  c(i,k)=  1000.*conc(i,k) 
conc(i,k) = conc(i,k)  + c(i,k) 

42  continue 

IF(c(n-l,k).lt.-.999*phi(k))  c(n-l  ,k) = 999*phi(k) 
IF(c(n-l,k).gt.  + 1.0)  c(n-l,k)=  + 1.0 
IF(c(n-l,k).lt.-1.0)  c(n-l,k)  = -1.0 
phi(k) = phi(k) + c(n- 1 ,k) 

IF(c(n,k).gt.  + 1.0)  c(n,k)=  +1.0 
IF(c(n,k).lt.-1.0)  c(n,k)  = -1.0 
Vcu(k) = Vcu(k) + c(n,k) 

***  calculate  zz  and  write  cone  to  files  *** 
IF(iter.eq.itmax)  then 
IF(k.lt.ij)  then 
zz=dhf*(k-l) 
else 

zz= delf + dhb*(k-ij) 

END  IF 

write(55,208)  zz,conc(  l,k),conc(2,k),conc(3,k), 

1 conc(  4,k),conc(5,k),conc(6,k), 

1 conc(  7,k),conc(8,k),conc(9,k), 

1 conc(10,k),  phi(k)  , Vcu(k) 

END  IF 

if(k.eq.ij)  write(56,209)  nj, 

1 conc(  l,k),conc(2,k),conc(3,k), 

1 conc(  4,k),conc(5,k),conc(6,k), 

1 conc(  7,k),conc(8,k),conc(9,k), 

1 conc(10,k),  phi(k)  , Vcu(k) 

IF(k.eq.l  .and.  iter.eq. itmax)  then 
IF(conc(l,k)*1000.*conc(4,k)*1000..gt.  1.2e-6) 

1 print*, ’CuCl  is  present’ 

IF(conc(  1 ,k)  * 1 000 . *conc(6  ,k)  * 1 000 . . gt . 1 . e- 1 4) 

1 print*, ’CuOH  is  present’ 

IF(conc(9,k)*1000.*.519*(conc(6,k)*1000.)**2.gt.l.e-20) 

1 print*, ’CuOH2  is  present’ 

IF(conc(9,k)*1000.*.519*(conc(6,k)*1000.)**2.gt.7.8e-21) 
1 print*, ’CuO  is  present’ 

IF((conc(9,k)*1000.*.519)**2*(conc(6,k)*1000.)**3.gt. 


1 7.1e-34) 

1 print*,’ Cu2(OH)3Cl  is  present’ 

IF(conc(l,k)*1000.*conc(6,k)*1000..gt.  1.3e-15) 

1 print*, ’Cu20  is  present’ 

END  IF 

IF(conc(l,k)*1000.*conc(4,k)*1000..gt.3.2e-7) 

1 print*, ’CuCl  is  present’ 
print*, conc(l,k)*1000.*conc(4,k)*1000.,’  vs  1.2e-6  Ksp’ 
33  continue 
51  continue 

208  format(13(el3.5)) 

209  format(i5,  3x,  12(e22.14)) 
close(ll) 

close(55) 

close(56) 

69  continue 
END 


subroutine  ssbcl(j) 

************************************************************** 

* sets  boundary  conditions  * 

************************************************************** 
implicit  double  precision(a-h,o-z) 

COMMON/BA/ N,NJ,A(12, 12), B(12,12),C(12, 1001), D(12, 25), G(12) 

1 ,X(12, 12),  Y(12, 12) 

common/var/conc(10, 1001),phi(1001) 

1 ,Vcu(1001) 

common/par/dfb,Db(10),z(10),delf,delb,dhf,dhb,rpm 

1 ,rkl,rk2,rko2,Eql,Eq2,Eq3,Eq4,betaa,betac,area 

2 , pH, c2sat,vz, alpha, Ahfc,Vm,ij 
common/ const/ errmax , RTF  ,pi , F arad , iter , itmax 
common/ curr/  current 

Pourbaix  corrected  for  cone  in  M 
Veq  = 0.520+RTF*dlog(conc(l,l)*1000.) 

Veq  = 0.153+RTF*dlog(conc(9,l)/conc(l,l)) 
rkpf  = l.e-10 
rkpb  = l.e-5 

correction  to  concentration  in  M = 6.90776 
correction  to  formal  potential  1 is  0.18V 

rkb  = rkf*dexp(.520/RTF  + 6. 90776) 

Veql  = RTF*dlog(rkb*conc(l,l)/rkf) 
rcua  = rkf*dexp(  (Vcu(j)-Veql)/betaa) 
rcuc  = rkb*dexp(-(Vcu(j)-Veql)/betac)*conc(l,l) 

rkpb  = rkpf*dexp(.  153/RTF) 

Veq2  = RTF*dlog(rkpb*conc(9,l)/(rkpf*conc(l,l))) 
rcupa  = rkpf*dexp(  (Vcu(j)- Veq2)/betaa)*conc(  1,1) 
rcupc  = rkpb  *dexp(-(  Vcu(j )- V eq2)/betac)  *conc(9 , 1 ) 
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Vfl  = 0.520  + 0.18-0.18 

rcual  = rkl  *dexp(  (Vcu(j)-Vfl)/betaa) 

rcucl  = rkl*conc(l,l)*dexp(-(Vcu(j)-Vfl)/betac) 

Vf2  = 0.153 

rcua2  = rk2*conc(l,l)*dexp(  (Vcu(j)-Vf2)/betaa) 
rcuc2  = rk2*conc(9,l)*dexp(-(Vcu(j)-Vf2)/betac) 


c oxygen  reduction 

c check  correction  for  concentration  in  M 

c Vf3  = 0.401  + .087 
Vf3  = -0.146 

ro2c  = rko2*conc(7,l)  *dexp(-2.*(Vcu(l)-Vf3)/betac) 
ro2a  = rko2*conc(6,l)**4*dexp(  2.*(Vcu(l)-Vf3)/betaa) 


c 

c ELECTRONEUTRALITY 
c determines  Na+  concentration 
c 


DO  46  index  =l,n-2 
b(l, index)  = -z(index) 
g(l)  = z(index)*conc(index,j)  + g(l) 

46  continue 

big  = conc(lj) 

DO  47  index=2,n-2 

if(big.lt.conc(index,j))  big  = conc(index,j) 

47  continue 

i f(dabs(g(  1 )) . le. big*errmax)  g(l)  = 0. 


c 

c 

c 


water  equilibrium 

b(2,5)  = -conc(6,j) 

b(2,6)  = -conc(5,j) 

g(2)  = conc(5,j)*conc(6,j)-l.e-20 

big = conc(5,j)*conc(6  ,j) 

if(dabs(g(2)).le.big*errmax)  g(2)  = 0. 


c 

c del.N9+del.N10=0 
c 


b(3,l)  = -rcua2/conc(l,l) 
b(3,9)  = dfb*Db(9)/dhf 

1 -z(9)  *dfb*Db(9)  /RTF*(phi(2)-phi(l))/2./dhf 

1 +rcuc2/conc(9,l) 


(1(3,9)  = -dfb*Db(9)/dhf 

1 -z(9)  *dfb*Db(9)  /RTF*(phi(2)-phi(l))/2./dhf 

b(3,10)  = dfb*Db(10)/dhf 

1 -z(10)*dfb*Db(10)/RTF*(phi(2)-phi(l))/2./dhf 

d(3,10)  = -dfb*Db(10)/dhf 

1 -z(10)*dfb*Db(10)/RTF*(phi(2)-phi(l))/2./dhf 

b(3,n-l)  = z(9)  *dfb*Db(9)  /RTF/2.  *(conc(9,l)  +conc(9,2))/dhf 
1 +z(10)*dfb*Db(10)/RTF/2.*(conc(10,l)+conc(10,2))/dhf 

d(3,n-l)  = -z(9)  *dfb*Db(9)  /RTF/2.  *(conc(9,l)  +conc(9,2))/dhf 
1 -z(10)*dfb*Db(10)/RTF/2.*(conc(10,l)+conc(10,2))/dhf 

b(3,n)  = -rcua2/betaa  - rcuc2/betac 


g(3)  = dfb*Db(9)*(conc(9,2)-conc(9,l))/dhf 
1 +z(9)  *dfb*Db(9)  /RTF*(phi(2)-phi(l))/2. 

1 *(conc(9,l)  +conc(9,2))/dhf 

1 + dfb*Db(10)*(conc(10,2)-conc(10,l))/dhf 

1 + z(10)*dfb*Db(10)/RTF*(phi(2)-phi(l))/2. 

1 *(conc(10,l)+conc(10,2))/dhf 

1 +rcua2-rcuc2 

big = dfb*Db(9)*conc(9,2)/dhf 
if(big.lt.dfb*Db(10)*conc(10,2)/dhf) 

1 big = dfb  *Db(  1 0)  *conc(  1 0 , 2)/dhf 

if(big . It . z(  1 0)  *dfb  *Db(  1 0)/RTF  *phi(2)  *conc(  1 0 , l)/dhf) 

1 big=z(10)*dfb*Db(10)/RTF*phi(2)*conc(10,l)/dhf 

if(big.lt.z(9)*dfb*Db(9)/RTF^ta(2)*conc(9,l)/dhf) 

1 big =z(9)*dfb*Db(9)/RTF*phi(2)*conc(9,  l)/dhf 

if(big.lt.rcua2)  big=rcua2 
if(big.lt.rcuc2)  big  = rcuc2 


if(dabs(g(3)).le.big*errmax)  g(3)  = 0. 


Cu+  + 2 Cl-  = CuC12- 
Equilibrium  given  by  Eql 


b(4,l)  = -Eql*conc(4,j)**2 
b(4,2)=  1. 

b(4,4)  = -2.*Eql*conc(l,j)*conc(4,j) 

g(4)  = Eql  *conc(  1 ,j ) *conc(4  ,j ) * *2-conc(2 , j ) 

big  = dabs(conc(2,j)) 

if(big.  lt.dabs(Eql  *conc(  1 ,j)*conc(4,j)**2)) 

1 big = dabs(Eq  1 *conc(  1 ,j  ) *conc(4  ,j  ) **2) 

if(dabs(g(4)).le.big*errxnax)  g(4)  = 0. 

b(4,l)  = -l./conc(l,j) 
b(4,2)  = l./conc(2,j) 
b(4,4)  = -2./conc(4,j) 

g(4)  = dlog(Eql*conc(l,j)*conc(4,j)**2/conc(2,j)) 

if(dabs(g(4)).le.errmax)  g(4)  = 0. 


saturation  of  CuC12-  in  film 


b(4,2)  = -1. 

g(4)  = conc(2  j)  - c2sat 

big = dabs(conc(2,j)) 

if(dabs(g(4)).le.big*errmax)  g(4)  = 0. 


del.N(Cu  + ) + del.N(CuC132-)  + del.N(CuC12-) 


b(5,l)  = dfb*Db(l)/dhf 

1 -z(l)*dfb*Db(l)/RTF/dhf/2.  *(phi(2)-phi(l)) 

1 +rcucl  /conc(l,l)+rcua2/conc(l,l) 

d(5,l)  = -dfb*Db(l)/dhf 

1 -z(l)*dfb*Db(l)/RTF/dhf/2.*(phi(2)-phi(l)) 

b(5,2)  = dfb*Db(2)/dhf 

1 -z(2)  *dfb*Db(2)/RTF /dhf/2.  *(phi(2)-phi(l)) 

d(5,2)  = -dfb*Db(2)/dhf 

1 -z(2)*dfb*Db(2)/RTF  / dhf/2 . *(phi(2)-phi(  1)) 

b(5,8)  = dfb*Db(8)/dhf 

1 -z(8)  *dfb*Db(8)/RTF/dhf/2 . *(phi(2)-phi(l)) 

d(5,8)  = -dfb*Db(8)/dhf 

1 -z(8)*dfb*Db(8)/RTF/dhf/2.  *(phi(2)-phi(l)) 

b(5,9)  = -rcuc2/conc(9,l) 

b(5,n-l)  = z(  1 ) *dfb  *Db(  1 )/RTF /dhf/2 . *(conc(  1,1)  + conc(  1,2)) 
1 + z(2)  *dfb  *Db(2)/RTF /dhf/2 . *(conc(2, 1)  + conc(2,2)) 

1 +z(8)*dfb*Db(8)/RTF/dhf/2.*(conc(8,l)+conc(8,2)) 

d(5,n-l)  =-z(l)  *dfb  *Db(  1 )/RTF  / dhf/2 . *(conc(  1,1)+  conc(  1,2)) 
1 -z(2)  *dfb*Db(2)/RTF  / dhf/2.  *(conc(2, 1)  + conc(2,2)) 

1 -z(8)1(‘dfb*Db(8)/RTF/dhf/2.*(conc(8,l)+conc(8,2)) 


b(5,n)  = -rcual/betaa-rcucl/betac+rcua2/betaa  + rcuc2/betac 

g(5)  = dfb*Db(l)*(conc(l,2)-conc(l,l))/dhf 
1 +z(l)*dfb*Db(l)/RTF/dhf*(phi(2)-phi(l)) 

1 *(conc(l,l)+conc(l,2))/2. 

1 +(rcual-rcucl) 

1 + dfb*Db(2)*(conc(2,2)-conc(2,  l))/dhf 

1 + z(2)*dfb*Db(2)/RTF/dhf'(phi(2)-phi(l)) 

1 *(conc(2,l)  + conc(2,2))/2. 

1 +dfb*Db(8)*(conc(8,2)-conc(8,  l))/dhf 

1 + z(8)*dfb*Db(8)/RTF/dhf*(phi(2)-phi(l)) 

1 *(conc(8,l)+conc(8,2))/2. 

1 -(rcua2-rcuc2) 


big = dabs(dfb*Db(l)/dhf*(conc(l,2))/dhf) 
if(big.lt.  dabs(dfb*Db(2)/dhf*conc(2,2))/dhf) 

1 big = dabs(dfb*Db(2)/dhf*conc(2,2)/dhf) 

if(big.lt.dabs(z(l)*dfb*Db(l)/RTF/dhf*phi(2)*conc(l,l)/2.)) 
1 big=dabs(z(l)*dfb*Db(l)/RTF/dhf*phi(2)*conc(l,l)/2.) 

i f(big . It . dabs(z(2)  *dfb  *Db(2)/RTF  / dhf*phi(2)  *conc(2 , 1 )/2 . )) 
1 big=dabs(z(2)*dfb*Db(2)/RTF/dhf*phi(2)*conc(2,l)/2.) 

if(big.lt.dabs(dfb*Db(8)/dhf*conc(8,2))/dhf) 

1 big = dabs(dfb*Db(8)/dhf*conc(8 , 2)/dhf) 

if(big.lt.dabs(z(8)*dfb*Db(8)/RTF/dhf*phi(8)*conc(8,l)/2.)) 
1 big=dabs(z(8)*dfo*Db(8)/RTF/dhf*phi(8)*conc(8,l)/2.) 

i f(big . It . dabs(rcua  1 ))  big = dabs(rcua  1) 
if(big. It. dabs(rcuc  1 ))  big = dabs(rcuc  1) 
if(big.lt.dabs(rcua2))  big=dabs(rcua2) 
i f(big . It . dabs(rcuc2))  big = dabs(rcuc2) 

if(dabs(g(5)).le.big*errmax)  g(5)  = 0. 


del.N(Cl-)  + 2del.N(CuC12-)  + 3del.N(CuC132-) 


chalf2  = (conc(2,2)+conc(2,l))/2. 
chalf4  = (conc(4,2)+conc(4,l))/2. 
chalfS  = (conc(8,2)+conc(8,l))/2. 

b(6,2)  = -2.  *Db(2)  + 2.  *z(2)*Db(2)/RTF*(phi(2)-phi(l))/2. 
d(6,2)  = 2.*Db(2)+2.*z(2)*Db(2)/RTF*(phi(2)-phi(l))/2. 
b(6,4)  = -Db(4)  + z(4)*Db(4)/RTF*(phi(2)-phi(l))/2. 

d(6,4)  = Db(4)  + z(4)*Db(4)/RTF*(phi(2)-phi(l))/2. 

b(6,8)  = -3 . *Db(8)  + 3 . *z(8)*Db(8)/RTF*(phi(2)-phi(l))/2. 
d(6,8)  = 3 . *Db(8)  + 3 . *z(8)*Db(8)/RTF*(phi(2)-phi(l))/2. 
b(6,n-l)  = -2 . *z(2)  *Db(2)/RTF  *chal  f2-z(4)  *Db(4)/RTF  *chal  f4 
1 -3 . *z(8)*Db(8)/RTF*chalf8 

d(6,n-l)  = 2.  *z(2)*Db(2)/RTF*chalt2 + z(4)*Db(4)/RTFH<chalf4 
1 + 3 . *z(8)*Db(8)/RTF*chalf8 

g(6)  = -2.*Db(2)*(conc(2,2)-conc(2,l)) 

1 -2.  *z(2)*Db(2)/RTF*(phi(2)-phi(l))*chalf2 

1 -Db(4)*(conc(4,2)-conc(4,l)) 

1 -z(4)  *Db(4) /RT  F *(phi  (2)-phi(  1 ))  *chal  f4 

1 -3.*Db(8)*(conc(8,2)-conc(8,l)) 

1 -3.*z(8)*Db(8)/RTF*(phi(2)-phi(l))*chalf8 

big = dabs(2*Db(2)*(conc(2,  l)-conc(2, 1))) 
if(big.lt.dabs(2*z(2)*Db(2)/RTF*phi(l)*chalf2)) 

1 big = dabs(2*z(2)*Db(2)/RTF*phi(l)*chalf2) 

if(big.lt.dabs(Db(4)*(conc(4,  l)-conc(4, 1)))) 

1 big = dabs(Db(4)*(conc(4,  l)-conc(4, 1))) 


if(big.lt.dabs(z(4)*Db(4)/RTF*phi(l)*chalf4)) 

1 big = dabs(z(4)*Db(4)/RTF*phi(l)*chalf4) 

if(big.lt.dabs(Db(8)*(conc(8,  l)-conc(8, 1)))) 

1 big =dabs(Db(8)*(conc(8,  l)-conc(8, 1))) 

if(big.lt.dabs(z(8)*Db(8)/RTF*phi(l)*chalf8)) 

1 big=dabs(z(8)*Db(8)/RTF*phi(l)*chalf8) 

if(dabs(g(6)).le.big*errmax)  g(6)  = 0. 


fix  02  cone 

b(7,7)  = -1.0 

g(7)  = conc(7  j)-l.e-30 

big=conc(7,j) 

if(big.lt.l.e-30)  big  = l.e-30 

if  (dabs(g(7)).lt.big*errmax)  g(7)=0 


del.N7  = 0.0 


b(7,7)  = -dfb*Db(7)/dhf  - ro2c/conc(7,l) 

d(7,7)  = dfb*Db(7)/dhf 

b(7,6)  = 2.*ro2a/conc(6,l) 

b(7,n)  = 2.*ro2c/betac  + 2.*ro2a/betaa 

g(7)  = -dfb*Db(7)*(conc(7,2)-conc(7,l))/dhf  + ro2c  - ro2a 

big = dabs(dfb  *Db(7)  *conc(7 , 2)/dhf) 
if(big . It . dabs(ro2c))  big = dabs(ro2c) 
if(big.lt.dabs(ro2a))  big=dabs(ro2a) 

if(dabs(g(7)).le.big*errmax)  g(7)  = 0. 


del.N(3)=0 


c3half  = (conc(3,l)  + conc(3,2))/2. 


b(8,3)  = l.-z(3)/RTF/2.*(phi(2)-phi(l)) 
d(8,3)  = -1  .-z(3)/RTF/2.  *(phi(2)-phi(l)) 
b(8,n-l)  = z(3)/RTF*c3half 
d(8,n-l)  = -z(3)/RTF*c3half 
g(8)  = conc(3,2)-conc(3,l) 

1 + z(3)  *(phi(2)-phi(  I))*c3half/RTF 

big  = dabs(z(3)/RTF/2.  *phi(2)*conc(3 ,2)) 


if(big.  It.  dabs(conc(3 ,2)))big  = dabs(conc(3 ,2)) 
if(big.lt.dabs(conc(3,  l)))big  = dabs(conc(3 , 1)) 
if(dabs(g(8)).le.big*errmax)  g(8)  = 0. 


set  current  equal  to  zero 
del.N7  = 0 
z(7)  = 0 


b(9,l)  = rcucl  /conc(l,l)  - rcua2/conc(l,l) 
b(9,7)  = -2.  *dfb*Db(7)/dhf 
d(9,7)  = 2.  *dfb*Db(7)/dhf 
b(9,9)  = rcuc2/conc(9,l) 

b(9,n)  = -rcua  1 /betaa-rcuc  1 /betac-rcua2/betaa-rcuc2/betac 
g(9)  = -2.  *dfb*Db(7)*(conc(7,2)-conc(7,  l))/dhf 
1 + rcual  - rcucl  + (rcua2  - rcuc2) 

1 -current/Farad 

big  = dabs(2.  *dfb*Db(7)*conc(7,2)/dhf) 
if(big.lt.dabs(rcual))  big  =dabs(rcual) 
if(big.lt.dabs(rcucl))  big  =dabs(rcucl) 
if(big.lt.dabs(rcua2))  big  =dabs(rcua2) 
if(big.lt.dabs(rcuc2))  big  =dabs(rcuc2) 
if(big.lt.dabs(current/Farad))  big  = dabs(current/ F arad) 
if(dabs(g(9)).le.big*errmax)  g(9)  = 0. 

print’1' 

print*,’idiss  = ’,rcual*Farad*1000.*area 
1 iplate  = ’ , -rcuc  1 *F  arad* 1 000 . *area 

print*,  ’icorr  = ’ ,(rcual-rcucl)*Farad*1000.  *area 
1 i02  = -2. *dfb*Db(7)*(conc(7,2)-conc(7, l))/dhf 

1 *Farad*1000.*area 

print*,  ’Vcu  = ’,Vcu(3)*1000. 
print*, ’i(Cu  + =Cu  + +)  =’,rcua2*Farad*1000.*area 
1 ,’  i(Cu+  + =Cu+)  =’,-rcuc2*Farad*1000.*area 

print*, ’i(Cu+  =Cu+  +,net)  =’,(rcua2-rcuc2)*Farad*1000.*area 


Cu+  + 3 Cl-  = CuC132- 
Equilibrium  given  by  Eq2 

b(10,l)  = -Eq2*conc(4,j)**3 
b(10,8)  = 1. 

b(10,4)  = -3.*Eq2*conc(l,j)*conc(4,j)**2 
g(10)  = Eq2*conc(l,j)*conc(4,j)**3-conc(8,j) 
big = dabs(conc(8  ,j)) 

if(big . It . dabs(Eq2  *conc(  1 ,j ) *conc(4  ,j ) **3 )) 

1 big  = dabs(conc(l  ,j)*conc(4,j)**3) 

if(dabs(g(10)).le.big*errmax)  g(10)  = 0. 


b(10,l)  = -l./conc(l,j) 
b(10,8)  = l./conc(8,j) 
b(10,4)  = -3./conc(4,j) 

g(10)  = dlog(Eq2*conc(l,j)*conc(4  j)**3/conc(8,j)) 

if(dabs(g(10)).le.errmax)  g(10)  = 0. 


del . N(H + )-del . N(OH-)-3  del . N(HCu02-) = 0 
del.N5-del.N6-3del.N10=0 


chalf5  = (conc(5,2)  +conc(5,l))  /2. 
chalfb  = (conc(6,2)  +conc(6,l))  /2. 
chalfl0=  (conc(10,2) +conc(10,  l))/2. 

b(l  1,5)  = -Db(5) 

1 + z(5)*Db(5)/RTF*(phi(2)-phi(l))*conc(5,l)/2. 

d(l  1,5)  = Db(5) 

1 + z(5)*Db(5)/RTF*(phi(2)-phi(l))*conc(5,l)/2. 

b(ll,6)=  -(-Db(6) 

1 + z(6)*Db(6)/RTF*(phi(2)-phi(l))*conc(6,l)/2.) 

d(ll,6)  = -(Db(6) 

1 + z(6)*Db(6)/RTF*(phi(2)-phi(l))*conc(6,l)/2.) 

b(ll,10)  = -3.*(-Db(10) 

1 + z(10)*Db(10)/RTF*(phi(2)-phi(l))*conc(10,l)/2.) 

d(ll,10)  = -3.*(Db(10) 

1 + z(10)*Db(10)/RTF*(phi(2)-phi(l))*conc(10,l)/2.) 

b(l  1,7)  = +2.*Db(7) 
d(ll,7)  = -2.*Db(7) 

b(ll,n-l)  = -z(5)  *Db(5)  /RTF*chalf5 
1 +z(6)  *Db(6)  /RTF*chalf6 

1 + 3.  *z(10)*Db(10)/RTF*chalfl0 

d(ll,n-l)  = z(5)  *Db(5)  /RTF*chalf5 
1 -z(6)  *Db(6)  /RTF*chalf6 

1 -3 . *z(  1 0)  *Db(  1 0)/RTF  *chalf  1 0 

tdiff5  = -Db(5)*(conc(5,2)-conc(5, 1)) 

tmig5  = -z(5)*Db(5)/RTF*(phi(2)-phi(l))*chalf5 

tdiff6  = -Db(6)*(conc(6,2)-conc(6, 1)) 

tmig6  = -z(6)*Db(6)/RTF*(phi(2)-phi(l))*chalf6 


tdifflO  = -Db(10)*(conc(10,2)-conc(10,l)) 

tmiglO  = -z(  1 0)  *Db(  1 0)/RTF  *(phi(2)-phi(  1 ))*chal  f 10 


g(ll)  = tdiffS  + tmig5-(tdiff6  + tmig6)-3 . *(tdifflO  + tmig  10) 
1 +2.  *Db(7)*(conc(7,2)-conc(7, 1)) 


big=dabs(tdiff5) 

if(big . It.  dabs(z(5)  *Db(5)/RTF  *conc(5 , 2)  *(phi(  1)))) 

1 big = dabs(z(5)*Db(5)/RTF*conc(5,2)*(phi(  1))) 

if(big . It.  dabs(Db(6)  *(conc(6 , 1)))) 

1 big=dabs(Db(6)*(conc(6,l))) 

if(big.lt.dabs(z(6)*Db(6)/RTF*conc(6,2)*(phi(l)))) 

1 big=dabs(z(6)*Db(6)/RTF*conc(6,2)*(phi(l))) 

if(big.lt.dabs(tdifflO)) 

1 big=dabs(tdifflO) 

i f(big . It . dabs(z(  1 0)  *Db(  10)/RTF  *conc(  10,2)  *(phi(  1 )))) 

1 big  = dabs(z(10)*Db(10)/RTF*conc(10,2)*(phi(l))) 

if(big-lt.  dabs(2.  *Db(7)  *(conc(7,2)-conc(7 , 1)))) 

1 big = dabs(2.  *Db(7)*(conc(7,  l)-conc(7 , 1))) 

if(dabs(g(ll)).le.big*errmax)  g(ll)  = 0. 


Cu+  + + H20  = HCu02-  + 3H+ 
Equilibrium  given  by  Eq4 


b(12,5)  = -3 . *conc(  1 0 , j ) *conc(5  ,j ) **2 

b(12,9)  = Eq4 

b(12,10)  = -conc(5,j)**3 

g(12)  = conc(10,j)*conc(5,j)**3-Eq4*conc(9,j) 

big=conc(10,j)*conc(5,j)**3 

if(big.  It.  Eq4*conc(9  ,j))  big = Eq4*conc(9  ,j) 

if(dabs(g(12)).le.big*errmax)  g(12)  = 0. 


b(12,5)  = -3./conc(5,j) 
b(12,9)  = l./conc(9,j) 
b(12,10)  = -l./conc(10,j) 

g(12)  = dlog(conc(10,j)*conc(5,j)**3/conc(9,j)/Eq4) 
if(dabs(g(12)).le.errmax)  g(12)  = 0. 


itest=0 
DO  57  i=l,n 
if  (g(i).ne.O.O)  itest=l 
57  continue 

if  (itest.eq.l  .and.  iter.eq.itmax  ) print*,’j  = ’,j,’g=’,g 

return 

end 


subroutine  ssbclhfc(j) 

* sets  boundary  conditions  * 
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c ************************************************************** 
c implicit  double  precision(a-h,o-z) 

c COMMON/BA/  N,NJ,A(13,13),B(13,13),C(13,1001),D(13,27),G(13) 

c 1 ,X(13,13),Y(13,13) 

c common/var/conc(10,1001),phi(1001) 

c 1 ,Vcu(1001),delA(1001) 

c common/par/dfb,Db(10),z(10),delf,delb,dbf,dhb,rpm 

c 1 , rk  1 , rk2 , rko2 , Eq  1 , Eq2 , Eq3 , Eq4  ,betaa , betac , area 
c 1 ,pH,c2sat,vz,alpha,Ahfc,Vm,ij 
c common/const/errmax,  RTF,  pi,  Farad,  iter,  itmax 

c common/curr/current 

c USE  THIS  SUBROUTINE  FOR  HIGH  FIELD  CONDUCTION 
c to  use  this  subroutine,  a 13th  variable  was  added 
c the  remaining  subroutines  for  this  case  must  contain 
c a dummy  equation  like  the  one  for  Vcu(k) 
c also,  add  the  assignment  equations  in  the  main  program 
c and  fix  common  blocks 

Vf2  = 0.153 

rcua2  = rk2*conc(l,l)*dexp(  (Vcu(j)-Vf2)/betaa) 
rcuc2  = rk2  *conc(9 , 1 ) *dexp(-(  Vcu(j )- V f2)/betac) 

rhfca  = delA(l)*dexp(  alpha*(Vm-Vcu(  1))) 
rhfcc  = delA(l)*dexp(-alpha*(Vm-Vcu(l))) 
c rhfc  = rhfca  - rhfcc 

c oxygen  reduction 

c check  correction  for  concentration  in  M 

c Vf3  = 0.401  + .087 

VD  = -0.146 

ro2c  = rko2*conc(7, 1)  *dexp(-2.*(Vcu(l)-Vf3)/betac) 
c ro2a  = rko2*conc(6,l)**4*dexp(  2.*(Vcu(l)-Vf3)/betaa) 

c 

c ELECTRONEUTRALITY 
c determines  Na+  concentration 
c 


DO  46  index  =l,n-2 
b(l,  index)  — -z(  index) 
g(l)  = z(index)  *conc(index  ,j)  + g(l) 

46  continue 

big  = conc(l,j) 

DO  47  index=2,n-2 

if(big.lt.conc(index,j))  big  = conc(indexj) 

47  continue 

if(dabs(g(l)).le.big*errmax)  g(l)  = 0. 


water  equilibrium 


b(2,5)  = -conc(6,j) 

b(2,6)  = -conc(5,j) 

g(2)  = conc(5  ,j ) *conc(6  ,j)-l.e-20 

big = conc(5  ,j ) *conc(6  ,j ) 

if(dabs(g(2)).  le.  big*errmax)  g(2)  = 0. 


del.N9  + del.N10=0 


b(3,l)  = -rcua2/conc(l,l) 

b(3,9)  = dfb*Db(9)/dhf 

1 -z(9)  *dfb*Db(9)  /RTF*(phi(2)-phi(l))/2./dhf 

1 +rcuc2/conc(9,l) 

d(3,9)  = -dfb*Db(9)/dhf 

1 -z(9)  *dfb*Db(9)  /RTF*(phi(2)-phi(l))/2./dhf 

b(3,10)  = dfb*Db(10)/dhf 

1 -z(  1 0)  *dfb  *Db(  1 0)/RTF  *(phi(2)-phi(  l))/2 . /dhf 

d(3,10)  = -dfb*Db(10)/dhf 

1 -z(10)*dfb*Db(10)/RTF*(phi(2)-phi(l))/2./dhf 

b(3,n-l)  = z(9)  *dfb*Db(9)  /RTF/2.  *(conc(9,l)  +conc(9,2))/dhf 
1 +z(10)*dfb*Db(10)/RTF/2.*(conc(10,l)+conc(10,2))/dhf 

d(3,n-l)  = -z(9)  *dfb*Db(9)  /RTF/2.  *(conc(9,l)  +conc(9,2))/dhf 
1 -z(10)*dfb*Db(10)/RTF/2.*(conc(10,l)+conc(10,2))/dhf 

b(3,n)  = -rcua2/betaa  - rcuc2/betac 


g(3)  = dfb*Db(9)*(conc(9,2)-conc(9,l))/dhf 
1 +z(9)  *dfb*Db(9)  /RTF*(phi(2)-phi(l))/2. 

1 *(conc(9,l)  +conc(9,2))/dhf 

1 + dfb  *Db(  1 0)  *(conc(  10 , 2)-conc(  10,1  ))/dhf 

1 + z(10)*dfb*Db(10)/RTF*(phi(2)-phi(l))/2. 

1 *(conc(10,l)+conc(10,2))/dhf 

1 +rcua2-rcuc2 

big = dfb*Db(9)*conc(9 , 2)/dhf 
if(big.lt.dfb*Db(10)*conc(10,2)/dhf) 

1 big=dfb*Db(10)*conc(10,2)/dhf 

if(big.lt.z(10)*dfb*Db(10)/RTF*phi(2)*conc(10,l)/dhf) 

1 big=z(10)*dfb*Db(10)/RTF^M(2)*conc(10,  l)/dhf 

if(big . It . z(9)  *dfb  *Db(9)/RTF  *phi(2)  *conc(9 , 1 ) /dhf) 

1 big= z(9)*dfb*Db(9)/RTF*phi(2)*conc(9,  l)/dhf 

if(big.lt.rcua2)  big  = rcua2 
if(big.lt.rcuc2)  big  = rcuc2 


if(dabs(g(3)).le.big*errmax)  g(3)  = 0. 


Cu+  + 2 Cl-  = CuC12- 
Equilibrium  given  by  Eql 


b(4,l)  = -Eql*conc(4,j)**2 
b(4,2)  = 1. 

b(4,4)  = -2 . *Eq  1 *conc(  1 ,j ) *conc(4  ,j ) 

g(4)  = Eql  *conc(  1 ,j ) *conc(4  ,j ) **2-conc(2  ,j ) 

big = dabs(conc(2  ,j  )) 

i f(big . It . dabs(Eq  1 *conc(  1 ,j  ) *conc(4  ,j  ) **2)) 

1 big  = dabs(Eql  *conc(l  ,j)*conc(4,j)**2) 

if(dabs(g(4)).le.big*errmax)  g(4)  = 0. 


b(4,l)  = -l./conc(l,j) 
b(4,2)  = l./conc(2,j) 
b(4,4)  = -2./conc(4,j) 

g(4)  = dlog  (Eq  1 *conc(  1 ,j ) *conc(4  ,j ) **2/ conc(2  ,j )) 

if(dabs(g(4)).le.errmax)  g(4)  = 0. 


saturation  of  CuC12-  in  film 

b(4,2)  = -1. 

g(4)  = conc(2,j)  - c2sat 

big = dabs(conc(2,j)) 

if(dabs(g(4)).le.big*errmax)  g(4)  = 0. 


del.N(Cu +)  + del.N(CuC132-)  + del.N(CuC12-) 


1 


1 


b(5,l)  = dfb*Db(l)/dhf 

-z(l)*dfb*Db(l)/RTF/dhf/2, 
+rcua2/conc(l,l) 
d(5,l)  = -dfb*Db(l)/dhf 

-z(l)*dfb*Db(l)/RTF/dhf/2. 
b(5,2)  = dfb*Db(2)/dhf 
l -z(2)*dfb*Db(2)/RTF/dhf/2. 

d(5,2)  = -dfb*Db(2)/dhf 

-z(2)*dfb*Db(2)/RTF/dhf/2. 
b(5,8)  = dfb*Db(8)/dhf 

-z(8)*dfb*Db(8)/RTF/dhf/2. 
d(5,8)  = -dfb*Db(8)/dhf 
l -z(8)*dfb*Db(8)/RTF/dhf/2. 

b(5,9)  = -rcuc2/conc(9,l) 


*(phi(2)-phi(l)) 

*(phi(2)-phi(l)) 

*(phi(2)-phi(l)) 

*(phi(2)-phi(l)) 

*(phi(2)-phi(l)) 

>hi(2)-phi(l)) 


b(5,n-2)  = -(rhfca-rhfcc)/delA(l) 


b(5,n-l)  = z(l)*dfb*Db(l)/RTF/dhf/2.*(conc(l,l)  + conc(l,2)) 
1 + z(2)  *dfb  *Db(2)/RTF  / dhf/2 . *(conc(2 , 1 ) + conc(2 , 2)) 

1 + z(8)*dfb*Db(8)/RTF/dhf/2.  *(conc(8, 1) +conc(8,2)) 

d(5,n-l)  = -z(l)*dfb*Db(l)/RTF/dhf/2.*(conc(l,l)+conc(l,2)) 
1 -z(2)  *dfb*Db(2)/RTF  /dhf/2 . *(conc(2, 1) + conc(2,2)) 

1 -z(8)*dfb*Db(8)/RTF/dhf/2.*(conc(8,l)  + conc(8,2)) 


b(5,n)  = rciw2/betaa+rcuc2/betac+alpha*(rhfca+rhfcc) 

g(5)  = dfb*Db(l)*(conc(l,2)-conc(l,l))/dhf 
1 + z(l)*dfb*Db(l)/RTF/dhf*(phi(2)-phi(l)) 

1 *(conc(l,l)+conc(l,2))/2. 

1 + (rhfca-rhfcc) 

1 + dfb*Db(2)  *(conc(2 , 2)-conc(2 , l))/dhf 

1 +z(2)*dfb*Db(2)/RTF/dhf*(phi(2)-phi(l)) 

1 *(conc(2, 1) +conc(2,2))/2. 

1 +dfb*Db(8)*(conc(8,2)-conc(8,  l))/dhf 

1 + z(8)*dfb*Db(8)/RTF/dhf*(phi(2)-phi(l)) 

1 *(conc(8 , 1) + conc(8 ,2))/2. 

1 -(rcua2-rcuc2) 

big= dabs(dfb*Db(l)/dhf*(conc(l  ,2))/dhf) 
if(big.lt.dabs(dfb*Db(2)/dhf*conc(2,2))/dhf) 

1 big=dabs(dfb*Db(2)/dhf*conc(2,2)/dhf) 

if(big.lt.dabs(z(l)*dfb*Db(l)/RTF/dhf*phi(2)*conc(l,l)/2.» 

1 big=dabs(z(l)*dfb*Db(l)/RTF/dhf*phi(2)*conc(l,l)/2.) 

if(big.lt.dabs(z(2)*dfb*Db(2)/RTF/dhf*phi(2)*conc(2,l)/2.)) 
1 big = dabs(z(2)  *dfb  *Db(2)/RTF  / dhf*phi(2)  *conc(2 , l)/2.) 

if(bigdt.dabs(dfb*Db(8)/dhf*conc(8,2))/dhf) 

1 big  = dabs(dfb*Db(8)/dhf*conc(8,2)/dhf) 

if(big.lt.dabs(z(8)*dfb*Db(8)/RTF/dhf^hi(8)*conc(8,l)/2.)) 

1 big=dabs(z(8)*dfb*Db(8)/RTF/dhf*phi(8)*conc(8,l)/2.) 

if(big.lt.dabs(rhfca))  big  = dabs(rhfca) 
if(big.  lt.dabs(rhfcc))  big = dabs(rhfcc) 
if(big.lt.dabs(rcua2))  big=dabs(rcua2) 
if(big.lt.dabs(rcuc2))  big  = dabs(rcuc2) 


if(dabs(g(5)).le.big*errmax)  g(5)  = 0. 


del.N(Cl-)  + 2del.N(CuC12-)  + 3del.N(CuC132-) 


chalf2  = (conc(2,2)+conc(2,l))/2. 
chalf4  = (conc(4,2)+conc(4,l))/2. 
chalf8  = (conc(  8 , 2)  + conc(  8, 1 ))/2. 

b(6,2)  = -2.  *Db(2)  + 2.  *z(2)*Db(2)/RTF*(phi(2)-phi(l))/2. 
d(6,2)  = 2.*Db(2)+2.*z(2)*Db(2)/RTF*(phi(2)-plu(l))/2. 
b(6,4)  = -Db(4)  + z(4)  *Db(4)  /RTF  *(phi(2)-phi(  1 ))/2 . 


d(6,4)  = Db(4)  + z(4)*Db(4)/RTF*(phi(2)-phi(l))/2. 

b(6,8)  = -3 . *Db(8)  + 3 . *z(8)*Db(8)/RTF*(phi(2)-phi(l))/2. 
d(6,8)  = 3 . *Db(8)  + 3 . *z(8)*Db(8)/RTF*(phi(2)-phi(l))/2. 
b(6,n-l)  = -2.*z(2)*Db(2)/RTF*chalf2-z(4)*Db(4)/RTF*chalf4 
1 -3 . *z(8)*Db(8)/RTF*chalf8 

d(6,n-l)  = 2.  *z(2)*Db(2)/RTF*chalf2 + z(4)*Db(4)/RTF*chalf4 
1 + 3 . *z(8)*Db(8)/RTF*chalf8 

g(6)  = -2.  *Db(2)*(conc(2,2)-conc(2, 1)) 

1 -2.  *z(2)*Db(2)/RTF*(phi(2)-phi(l))*chalf2 

1 -Db(4)*(conc(4,2)-conc(4,l)) 

1 -z(4)  *Db(4)/RTF  *(phi(2)-phi(  1 ))  *chal  f4 

1 -3.*Db(8)*(conc(8,2)-conc(8,l)) 

1 -3.*z(8)*Db(8)/RTF*(phi(2)-phi(l))*chalf8 

big = dabs(2*Db(2)*(conc(2,  l)-conc(2, 1))) 
i f(big . It . dabs(2  *z(2)  *Db(2)/RTF  *phi(  1 ) *chalf2)) 

1 big=dabs(2*z(2)*Db(2)/RTF^hi(l)*chalf2) 

if(big.lt.dabs(Db(4)*(conc(4,  l)-conc(4, 1)))) 

1 big = dabs(Db(4)*(conc(4,  l)-conc(4, 1))) 

i f(big . It . dabs(z(4)  *Db(4)/RTF  *phi(  1 ) *chal  f4)) 

1 big = dabs(z(4)  *Db(4)/RTF  *phi(  1 ) *chal  f4) 

if(big.lt.dabs(Db(8)*(conc(8,  l)-conc(8, 1)))) 

1 big =dabs(Db(8)*(conc(8,  l)-conc(8, 1))) 

if(big.lt.dabs(z(8)*Db(8)/RTF*phi(l)*chalf8)) 

1 big=dabs(z(8)*Db(8)/RTF*phi(l)*chalf8) 

if(dabs(g(6)).le.big*errmax)  g(6)  = 0. 


fix  02  cone 

b(7,7)  = -1.0 

g(7)  = conc(7,j)-l.e-30 

big=conc(7,j) 

if(big.lt.  l.e-30)  big=l.e-30 

if  (dabs(g(7)).lt.big*emnax)  g(7)  = 0 


del.N7  = 0.0 


b(7,7)  = -dfb*Db(7)/dhf  - ro2c/conc(7,l) 
d(7,7)  = dfb*Db(7)/dhf 
b(7,6)  = 2 . *ro2a/conc(6 , 1 ) 
b(7,n)  = 2.*ro2c/betac 
+ 2.  *ro2a/betaa 

g(7)  = -dfb*Db(7)*(conc(7,2)-conc(7,l))/dhf  + ro2c 
- ro2a 


big = dabs(dfb*Db(7)*conc(7,2)/dhf) 


ifCbig.lt.  dabs(ro2c))  big = dabs(ro2c) 
if(big.lt.dabs(ro2a))  big=dabs(ro2a) 

if(dabs(g(7)).le.big*errmax)  g(7)  = 0. 


del.N(3)  = 0 


c3half  = (conc(3,l)  + conc(3,2))/2. 

b(8,3)  = 1 ,-z(3)/RTF/2.  *(phi(2)-phi(l)) 
d(8,3)  = - 1 . -z(3)/RTF/2 . *(phi(2)-phi(  1)) 
b(8,n-l)  = z(3)/RTF*c3half 
d(8,n-l)  = -z(3)/RTF*c3half 

g(8)  = conc(3,2)-conc(3,l) 

1 +z(3)*(phi(2)-phi(l))*c3half/RTF 

big = dabs(z(3)/RTF/2.  *phi(2)  *conc(3 ,2)) 
if(big.  lt.dabs(conc(3 ,2)))big = dabs(conc(3 ,2)) 
if(big . It.  dabs(conc(3 , l)))big = dabs(conc(3 , 1)) 
if(dabs(g(8)).le.big*errmax)  g(8)  = 0. 


set  current  equal  to  zero 
del.N7  = 0 
z(7)  = 0 


b(9,l)  = -rcua2/conc(l,l) 
b(9,7)  = -2.  *dfb*Db(7)/dhf 
d(9,7)  = 2.  *dfb*Db(7)/dhf 
b(9,9)  = rcuc2/conc(9,l) 
b(9,n-2)  = -(rhfca-rhfcc)/delA(l) 
b(9,n)  = alpha*(rhfca+rhfcc)-rcua2/betaa-rcuc2/betac 
g(9)  = -2.  *dfb*Db(7)*(conc(7,2)-conc(7,  l))/dhf 
1 + rhfca  - rhfcc  + (rcua2  - rcuc2) 

1 -current/Farad 

big = dabs(2.  *dfb*Db(7)*conc(7,2)/dhf) 
if(big.lt.dabs(rhfca))  big  =dabs(rhfca) 
if(big.lt.dabs(rhfcc))  big  =dabs(rhfcc) 
if(big.lt.dabs(rcua2))  big  =dabs(rcua2) 
if(big.lt.dabs(rcuc2))  big  =dabs(rcuc2) 
if(big.lt.dabs(current/Farad))  big  =dabs(current/Farad) 
if(dabs(g(9)).le.big*errmax)  g(9)  = 0. 


c 

c 


Vcu 
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c b(9,n)  = -1. 

c g(9)  = Vcu(j)+48. 391709/1000. 

c big=dabs(Vcu(j)) 

c if(dabs(g(9)).le.big*errmax)  g(9)  = 0. 


print*,  ’ihfca  = ’ ,rhfca*Farad*1000.  *area 
1 ihfcc  = ’,-rhfcc*Farad*1000.*area 
print*,  ’icorr  = ’,(rhfca-rhfcc)*Farad*1000.  *area 
1 ,’  i02  = ’,  -2. *dfb*Db(7)*(conc(7,2)-conc(7, l))/dhf 

1 *Farad*1000.*area 

c print*,  ’io2a  =’,ro2a*Farad*1000.*area 

cl,’  io2c  = ’,-ro2c*Farad*1000.*area 

c print*, ’Veql  =’,  Veql*1000.  , 

c 1 ’ Veq2  = ’,Veq2*1000. 

print*, ’Vcu  = ’,Vcu(3)*1000. 
print*,  ’i(Cu  + = Cu  + +)  = ’ ,rcua2*Farad*1000.  *area 
1 ,’  i(Cu+ + =Cu+)  =’,-rcuc2*Farad*1000.*area 

print*, ’i(Cu+  =Cu+  +,net)  =’,(rcua2-rcuc2)*Farad*1000.*area 
print*, ’Ahfc  = ’,delA(l) 
c print*, ’current=  ’,current*area 


c Cu+  + 3 Cl-  = CuC132- 
c Equilibrium  given  by  Eq2 

c 

c b(10,l)  = -Eq2*conc(4,j)**3 

c b(10,8)  = 1. 

c b(10,4)  = -3.*Eq2*conc(l,j)*conc(4,j)**2 

c g(10)  = Eq2*conc(l,j)*conc(4,j)**3-conc(8,j) 

c big=dabs(conc(8,j)) 

c if(big.lt.dabs(Eq2*conc(l,j)*conc(4,j)**3)) 

c 1 big=dabs(conc(l,j)*conc(4,j)**3) 

c if(dabs(g(10)).le.big*errmax)  g(10)  = 0. 


b(10,l)  = -l./conc(l,j) 
b(10,8)  = l./conc(8,j) 
b(10,4)  = -3./conc(4,j) 

g(10)  = dlog(Eq2*conc(l,j)*conc(4,j)**3/conc(8,j)) 
if(dabs(g(10)).le.ernnax)  g(10)  = 0. 


c 

c 

c 

c 


del . N(H + ) -del . N(OH-)-3  del.  N(HCu02-) = 0 
del.N5-del.N6-3del.N10=0 
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chal£5  = (conc(5,2)  +conc(5,l))  /2. 
chalf6  = (conc(6,2)  +conc(6,l))  /2. 
chalflO=  (conc(10,2)  + conc(10,l))/2. 

b(ll,5)  = -Db(5) 

1 + z(5)  *Db(5)/RTF  *(phi(2)-phi(  1 ))  *conc(5 , l)/2. 

d(ll,5)  = Db(5) 

1 + z(5)*Db(5)/RTF*(phi(2)-phi(l))*conc(5,l)/2. 

b(ll,6)=  -(-Db(6) 

1 + z(6)*Db(6)/RTF*(phi(2)-phi(l))*conc(6,l)/2.) 

d(ll,6)  = -(Db(6) 

1 + z(6)*Db(6)/RTF*(phi(2)-phi(l))*conc(6,l)/2.) 

b(ll,10)=  -3.*(-Db(10) 

1 + z(  1 0)  *Db(  1 0)/RTF  *(phi(2)-phi(  1 ))  *conc(  10 , l)/2 . ) 

d(l  1 , 10)  = -3.*(Db(10) 

1 + z(10)*Db(10)/RTF*(phi(2)-phi(l))*conc(10,l)/2.) 

b(ll,7)  = + 2.*Db(7) 
d(ll,7)  = -2.*Db(7) 

b(ll,n-l)  = -z(5)  *Db(5)  /RTF*chalf5 
1 +z(6)  *Db(6)  /RTF*chaIf6 

1 + 3.  *z(10)*Db(10)/RTF*chalfl0 

d(l  l.ii-l)  = z(5)  *Db(5)  /RTF*chalf5 
1 -z(6)  *Db(6)  /RTF*chalf6 

1 -3 . *z(  1 0)*Db(  10)/RTF  *chalf  1 0 

tdiff5  = -Db(5)*(conc(5,2)-conc(5, 1)) 

tmig5  = -z(5)*Db(5)/RTF*(phi(2)-phi(l))*chalf5 

tdiff6  = -Db(6)*(conc(6,2)-conc(6,l)) 

tmig6  = -z(6)*Db(6)/RTF*(phi(2)-phi(l))*chalf6 

tdifflO  = -Db(10)*(conc(10,2)-conc(10,l)) 

tmiglO  = -z(10)*Db(10)/RTF*(phi(2)-phi(l))*chalfl0 


g(ll)  = tdiff5  + tmig5-(tdiff6  + tmig6)-3.*(tdifflO  + tmiglO) 

1 +2.*Db(7)*(conc(7,2)-conc(7,l)) 


big = dabs(tdiff5) 

i f(big  .It.  dabs(z(5)  *Db(5)/RTF  *conc(5 , 2)  *(phi(  1)))) 

1 big=dabs(z(5)*Db(5)/RTF*conc(5,2)*(phi(l))) 

if(big.lt.dabs(Db(6)*(conc(6,l)))) 

1 big=dabs(Db(6)*(conc(6,l))) 

if(big . 1 1 . dabs(z(6)  *Db(6)  /RTF  *conc(6 , 2)  *(phi(  1 )))) 

1 big = dabs(z(6)*Db(6)/RTF  *conc(6 ,2)  *(phi(  1))) 

if(big.lt.dabs(tdifflO)) 

1 big=dabs(tdifflO) 

if(big.lt.dabs(z(10)*Db(10)/RTF*conc(10,2)*(phi(l)))) 

1 big=dabs(z(10)*Db(10)/RTF*conc(10,2)*(phi(l))) 

if(big . It . dabs(2 . *Db(7)  *(conc(7 , 2)-conc(7 , 1 )))) 


1 big = dabs(2.  *Db(7)*(conc(7 , l)-conc(7, 1))) 


if(dabs(g(ll)).le.big*errmax)  g(ll)  = 0. 


Cu++  + H20  = HCu02-  + 3H+ 
Equilibrium  given  by  Eq4 


b(12,5)  = -3 . *conc(  1 0 ,j ) *conc(5  ,j ) **2 

b(12,9)  = Eq4 

b(12,10)  = -conc(5,j)**3 

g(12)  = conc(10,j)*conc(5,j)**3-Eq4*conc(9,j) 

big = conc(  1 0 ,j ) *conc(5  ,j ) **3 

i f(big . It . Eq4 *conc(9  ,j ))  big = Eq4 *conc(9  j ) 

if(dabs(g(12)).le.big*errmax)  g(12)  = 0. 

b(12,5)  = -3./conc(5,j) 
b(12,9)  = l./conc(9,j) 
b(12,10)  = -l./conc(10,j) 

g(12)  = dlog(conc(10,j)*conc(5,j)**3/conc(9,j)/Eq4) 

if(dabs(g(12)).le.errmax)  g(12)  = 0. 


Equation  for  Cu20  solid  equilibrium 


b(13,n-2)  = -1. 

g(13)  = delA(j)  - 2.4e-ll 

big  = delA(j) 

if(dabs(g(13)).le.big*errmax)  g(13)  = 0. 

b(13,l)  = -conc(6,l) 

b(13,6)  = -conc(l,l) 

g(13)  = conc(l,l)*conc(6,l)  - Eq3 

big=Eq3 

if(dabs(g(13)).le.big*errmax)  g(13)  = 0. 


b(13,l)  = -l./conc(l  j) 

b(13,6)  = -l./conc(6,j) 

g(13)  = diog(conc(l,j)*conc(6,j)/Eq3) 

if(dabs(g(13)).le.errmax)  g(13)  = 0. 


itest=0 
DO  57  i=l,n 
if  (g(i).ne.O.O)  itest=l 
57  continue 


if  (itest.eq.l ) print*, ’j  = ’ j,’g=’,g 
if  (itest.eq.l  .and.  iter.eq.itmax  ) print*, ’j  = ’,j,’g=’,g 
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return 

end 


subroutine  ssfilm(j) 

Q ************************************************************** 

C * * 

Q ********************************************************  ****** 

implicit  double  precision(a-h,o-z) 

COMMON/BA/  N,NJ,A(12,12),B(12,12),C(12,1001),D(12,25),G(12) 

1 ,X(12,12),Y(12,12) 
common/var/conc(  1 0 , 1 00 1 ) , phi(  1 00 1 ) 

1 ,Vcu(1001) 

common/par/dfb,Db(10),z(10),delf,delb,dhf,dhb,rpm 

1 ,rkl,rk2,rko2,Eql,Eq2,Eq3,Eq4,betaa,betac,area 

2 , pH, c2sat,vz, alpha, Ahfc,Vm,ij 
common/const/errmax,RTF,pi,Farad,iter,itmax 
common/ curr/current 

c 

c ELECTRONEUTRALITY 
c 


DO  46  index  =l,n-2 
b(l,  index)  = -z(index) 
g(l)  = z(index)*conc(index,j)  + g(l) 

46  continue 

c g(l)  = z(l)*conc(l,j)  + z(2)*conc(2,j)+z(3)*conc(3,j) 
c 1 +z(4)*conc(4,j)  + z(5)*conc(5,j)+z(6)*conc(6,j) 

big  = conc(l,j) 

DO  47  index  =l,n-2 

if(big.lt.conc(index,j))  big  = conc(index.j) 

47  continue 

if(dabs(g(  1 )). le. big*errmax)  g(l)  = 0. 


c 

c water  equilibrium 
c 

b(2,5)  = -conc(6,j) 

b(2,6)  = -conc(5,j) 

g(2)  = conc(5,j)*conc(6,j)-l.e-20 

big = conc(5,j)*conc(6  ,j) 

if(dabs(g(2)).le.big*errmax)  g(2)  = 0. 


c 

c 


c 


del.N(3)  = 0 


a(3,3)  = -1.  +z(3)/RTF*(phi(j  + ])-phi(j-l))/4. 
b(3,3)  = 2.-z(3)/RTF*(phi(j-l)-2*phi(j)+phi(j  + l)) 
d(3,3)  = -l.-z(3)/RTF*(plii(j  + l)-phi(j-l))/4. 
a(3,n-l)  = -z(3)/RTF*conc(3,j) 

1 + z(3)/RTF*(conc(3  ,j  + l)-conc(3  ,j-l))/4. 

b(3,n-l)  = 2.*z(3)/RTF*conc(3,j) 
d(3,n-l)  = -z(3)/RTF*conc(3  ,j) 

1 -z(3)/RTF*(conc(3  J + l)-conc(3,j-l))/4. 


terml  = conc(3,j-l)-2*conc(3,j)+conc(3,j  + l) 

term2  = z(3)/RTF*conc(3,j)*(phi(j-l)-2*phi(j)+phi(j  + 1)) 

term3  = z(3)/RTF*(conc(3,j  + l)-conc(3,j-l)) 

1 *(phi(j  + l)-phi(j-l))/4. 

g(3)  = terml+term2+term3 

big = dabs(conc(3  ,j-l)) 

i f(big . It.  dabs(z(3)/RTF  *conc(3  ,j ) *(phi(j  - 1)))) 

1 big = dabs(z(3)/RTF*conc(3  ,j)*(phi(j-l))) 

if(dabs(g(3)).le.big*errmax)  g(3)  = 0. 


del.i=0 


DO  406  i=l,n-2 
a(3,i)  = -l.*Db(i)*z(i) 

1 +Db(i)*z(i)**2/RTF*(phi(j  + l)-phi(j-l))/4. 

b(3,i)  = 2.  *Db(i)*z(i) 

1 -Db(i)  *z(i)  * *2/RTF  *(phi(j  - 1 )-2*phi(j ) +phi(j  + 1)) 

d(3,i)  = -l.*Db(i)*z(i) 

1 -Db(i)  *z(i)  * *2/RTF  *(phi(j  + l)-phi(j-l))/4. 

406  continue 


DO  405  i=l,n-2 

a(3,n-l)  = a(3,n-l)-Db(i)*z(i)**2/RTF*conc(i,j) 

1 +Db(i)*z(i)**2/RTF*(conc(i,j  + l)-conc(i,j-l))/4. 

405  continue 


DO  404  i=l,n-2 

b(3,n-l)  = b(3,n-l)  +2.*Db(i)*z(i)**2/RTF*conc(i,j) 
404  continue 


DO  403  i=l,n-2 

d(3,n-l)  = d(3,n-l)  -Db(i)*z(i)**2/RTF*conc(i,j) 

1 -Db(i)*z(i)**2/RTF*(conc(i,j  + l)-conc(i,j-l))/4. 

403  continue 


tdiff  = 0.0 
DO  402  i=l,n-2 
tdiff  = tdiff 

1 + Db(i)*z(i)*(conc(i,j-l)-2*conc(i,j)  4-  conc(i,j  + 1)) 


402  continue 


tmig  = 0.0 
DO  401  i=l,n-2 
tmig  = tmig  + Db(i) 

1 *(z(i)**2/RTF*conc(i  j)*(phi(j-l)-2*phi(j)  +phi(j  + 1)) 
1 +z(i)**2/RTF/4.*(conc(i,j  + l)-conc(i,j-l)) 

1 *(phi(j  + l)-phi(j-l))) 

401  continue 


g(3)  = tdiff+tmig 

big  = dabs(Db(  l)*conc(l  ,j)) 

DO  407  i=l,n-3 

if(big.lt.dabs(Db(i)*conc(i,j)))  big=dabs(Db(i)*conc(i,j)) 
407  continue 

if(dabs(g(3)).le.big*errmax)  g(3)  = 0. 


Cu+  + 2 Cl-  = CuC12- 
Equilibrium  given  by  Eql 

b(4,l)  = -Eql*conc(4,j)**2 
b(4,2)  = 1. 

b(4,4)  = -2.*Eql*conc(l,j)*conc(4,j) 

g(4)  = Eql*conc(l,j)*conc(4,j)**2-conc(2,j) 

big=conc(2,j) 

if(big.lt.dabs(Eql*conc(l,j)*conc(4,j)**2)) 

1 big  = dabs(Eq  1 *conc(  1 ,j  ) *conc(4  ,j ) **2) 

if(dabs(g(4)).le.big*errmax)  g(4)  = 0. 


b(4,l)  = -l./conc(l,j) 
b(4,2)  = l./conc(2,j) 
b(4,4)  = -2./conc(4,j) 

g(4)  = dlog(Eql*conc(l,j)*conc(4,j)**2/conc(2,j)) 

if(dabs(g(4)).le.errmax)  g(4)  = 0. 


saturation  of  CuC12-  in  film 

b(4,2)  = -1. 

g(4)  = conc(2,j)  - c2sat 

big = dabs(conc(2,j)) 

if(dabs(g(4)).le.big*errmax)  g(4)  = 0. 


del.N(Cu  + )+del.N(CuC12-)+del.N(CuC132-) 
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c fix  bigs 

tempi  = -l.+z(l)/RTF*(phi(j  + l)-phi(j-l))/4. 
a(5,l)  = Db(l)*templ 

tempi  = 2.-z(l)/RTF*(phi(j-l)-2*phi(j) +phi(j  4- 1)) 
b(5,l)  = Db(l)*templ 
tempi  = -l.-z(l)/RTF*(phi(j  + l)-phi(j-l))/4. 
d(5,l)  = Db(l)*templ 

temp2  = -1.  +z(2)/RTF*(phi(j  + l)-phi(j-l))/4. 
a(5,2)  = Db(2)*temp2 

temp2  = 2.-z(2)/RTF*(phi(j-l)-2*phi(j)+phi(j  + l)) 

b(5,2)  = Db(2)*temp2 

temp2  = -l.-z(2)/RTF*(phi(j  + l)-phi(j-l))/4. 

d(5,2)  = Db(2)*temp2 

temp  8 = -1.  + z(8)/RTF*(phi(j  4-  l)-phi(j-l))/4. 

a(5,8)  = Db(8)*temp8 

temp  8 = 2.-z(8)/RTF*(phi(j-l)-2*phi(j)  4-phi(j  + 1)) 
b(5,8)  = Db(8)*temp8 
temp  8 = -l.-z(8)/RTF*(phi(j  4-  l)-phi(j-l))/4. 
d(5,8)  = Db(8)*temp8 


tempi  = -z(l)/RTF*conc(l,j) 

1 +z(l)/RTF*(conc(l,j  + l)-conc(l,j-l))/4. 

temp2  = -z(2)/RTF*conc(2,j) 

1 +z(2)/RTF*(conc(2,j  + l)-conc(2,j-l))/4. 

temp8  = -z(8)/RTF*conc(8,j) 

1 + z(8)/RTF*(conc(8,j  + l)-conc(8,j-l))/4. 

a(5,n-l)  = Db(l)*templ+Db(2)*temp2+Db(8)*temp8 
tempi  = 2.*z(l)/RTF*conc(l,j) 
temp2  = 2 . *z(2) /RTF  *conc(2  ,j ) 
temp8  = 2.*z(8)/RTF,|<conc(8,j) 
b(5,n-l)  = Db(l)*templ  +Db(2)*temp2+Db(8)*temp8 
tempi  = -z(l)/RTF*conc(l,j) 

1 -z(  1 )/RTF*(conc(  1 ,j  + l)-conc(l  ,j-l))/4. 

temp2  = -z(2)/RTF*conc(2,j) 

1 -z(2)/RTF*(conc(2,j  + l)-conc(2,j-l))/4. 

temp8  = -z(8)/RTF*conc(8,j) 

1 -z(8)/RTF*(conc(8,j  + l)-conc(8  j-l))/4. 

d(5,n-l)  = Db(l)*templ+Db(2)*temp2+Db(8)*temp8 
terml  = conc(l,j-l)-2*conc(l,j)+conc(l,j  + 1) 
term2  = z(l)/RTF*conc(l,j)*(phi(j-l)-2*phi(j)+phi(j  + 1)) 
term3  = z(l)/RTF*(conc(l,j  + l)-conc(l,j-l)) 

1 *(phi(j  + l)-phi(j-l))/4. 

term4  = conc(2,j-l)-2‘t<conc(2,j)  +conc(2,j  + 1) 
term5  = z(2)/RTF*conc(2,j)*(phi(j-l)-2*phi(j)+phi(j  + l)) 
term6  = z(2)/RTF*(conc(2,j  + l)-conc(2,j-l)) 

1 *(phi(j  + l)-phi(j-l))/4. 

term7  = conc(8,j-l)-2*conc(8,j)  + conc(8,j  + 1) 
term8  = z(8)/RTF*conc(8,j)*(phi(j-l)-2*phi(j)  +phi(j  + 1)) 
term9  = z(8)/RTF*(conc(8,j  + l)-conc(8,j-l)) 

1 *(phi(j  + l)-phi(j-l))/4. 


g(5)  = Db(l)*(terml  +term2+term3)+Db(2)*(term4  + tenn5  + temi6) 

1 4-  Db(8)*(term7  + term8  + term9) 


big = dabs(Db(  1 ) *conc(  1 ,j  - 1 )) 

if(big.  It.  dabs(Db(l)*2*conc(  1 ,j)))big = dabs(Db(l)*2*conc(  1 ,j)) 
if(big.lt.dabs(Db(l)*conc(l,j  + l)))big=dabs(Db(l)*conc(l,j  + 1)) 
if(big.lt.dabs(Db(2)*2*conc(2,j)))big=dabs(Db(2)*2*conc(2,j)) 
if(big.lt.dabs(Db(2)*conc(2,j  + l)))big=dabs(Db(2)*conc(2,j  + 1)) 
if(big . It.  dabs(Db(2)  *conc(2  ,j  - 1 )))big = dabs(Db(2)  *conc(2  ,j  - 1 )) 
if(big.lt.dabs(Db(8)*2*conc(8,j)))big=dabs(Db(8)*2*conc(8,j)) 
if(big.  It.  dabs(Db(8)*conc(8  ,j  + l)))big=dabs(Db(8)*conc(8,j  + 1)) 
if(big.lt.dabs(Db(8)*conc(8,j-l)))big  = dabs(Db(8)*conc(8,j-l)) 

if(big.lt.dabs(Db(l)*z(l)/RTF*conc(l,j  + l)*phi(j  + 1)/4.)) 

1 big=dabs(Db(l)*z(l)/RTF*conc(l,j  + l)*phi(j  + 1)/4.) 
if(big.lt.dabs(Db(2)*z(2)/RTF*conc(2,j  + l)*phi(j  + 1)/4.)) 

1 big=dabs(Db(2)*z(2)/RTF*conc(2,j  + l)*phi(j  + 1)/4.) 
if(big.lt.dabs(Db(8)*z(8)/RTF*conc(8)j  + l)*phi(j  + 1)/4.)) 

1 big=dabs(Db(8)*z(8)/RTF*conc(8,j  + l)*phi(j  + 1)/4.) 

if(dabs(g(5)).le.big*errmax)  g(5)  = 0. 


Cl-  and  CuC12-  convective  diffusion 
del.N(Cl-)  + 2del.N(CuC12-)  + 3del.N(CuC132-) 
fix  bigs 


temp4  = 

-1.  + z(4)/RTF*(phi(j  + l)-phi(j-l))/4. 

a(6,4)  = 

Db(4)*temp4 

temp4  = 

2.-z(4)/RTF*(phi(j-l)-2*phi(j) +phi(j  + 1)) 

b(6,4)  = 

Db(4)*temp4 

temp4  = 

-l.-z(4)/RTF*(phi(j  + l)-phi(j-l))/4. 

d(6,4)  = 

Db(4)H<temp4 

temp2  = 

2*(-l.  + z(2)/RTF*(phi(j  + l)-phi(j-l))/4.) 

a(6,2)  = 

Db(2)*temp2 

temp2  = 

2*(  2.-z(2)/RTF*(phi(j-l)-2*phi(j)-t-phi(j  + 1))) 

b(6,2)  = 

Db(2)*temp2 

temp  2 = 

2*(- 1 . -z(2)/RTF*(phi(j  + l)-phi(j-l))/4.) 

d(6,2)  = 

Db(2)*temp2 

temp  8 = 

3*(-l.  +z(8)/RTF*(phi(j  + l)-phi(j-l))/4.) 

a(6,8)  = 

Db(8)*temp8 

temp  8 = 

3*(  2.-z(8)/RTF*(phi(j-l)-2*phi(j)  -t-phi(j  + 1))) 

b(6,8)  = 

Db(8)*temp8 

temp  8 = 

3 *(-1 . -z(8)/RTF*(phi(j  + l)-phi(j-l))/4.) 

d(6,8)  = 

Db(8)*temp8 

temp4  — 

-z(4)/RTF  *conc(4  ,j ) 

1 

+z(4)/RTF*(conc(4,j  + l)-conc(4,j-l))/4. 

temp2  = 

2*(-z(2)  /RTF  *conc(2  ,j ) 

1 

+z(2)/RTF*(conc(2,j  + l)-conc(2,j-l))/4.) 

temp  8 = 

3*(-z(8)/RTF*conc(8,j) 

1 

+ z(8)/RTF*(conc(8,j  + l)-conc(8,j-l))/4.) 

a(6,n-l)  = Db(2)*temp2  + Db(4)*temp4+Db(8)*temp8 

temp4  = 2*z(4)/RTF*conc(4,j) 

temp2  = 2*2*z(2)/RTF‘t'conc(2,j) 

temp8  = 3*2*z(8)/RTF*conc(8,j) 

b(6,n-l)  = Db(2)*temp2  + Db(4)*temp4  + Db(8)*temp8 

temp4  = -z(4)/RTF*conc(4,j) 

1 -z(4)/RTF*(conc(4,j  + l)-conc(4,j-l))/4. 

temp2  = 2*(-z(2)/RTF*conc(2,j) 

1 -z(2)/RTF*(conc(2,j  + l)-conc(2,j-l))/4.) 

temp8  = 3*(-z(8)/RTF*conc(8,j) 

1 -z(8)/RTF*(conc(8  j + l)-conc(8,j-l))/4.) 

d(6,n-l)  = Db(2)*temp2+Db(4)*temp4+Db(8)*temp8 

terml  = conc(4,j-l)-2*conc(4,j)  +conc(4,j  + 1) 

term2  = z(4)/RTF*conc(4,j)*(phi(j-l)-2*phi(j) +phi(j  + 1)) 

term3  = z(4)/RTF*(conc(4,j  + l)-conc(4,j-l)) 

1 *(phi(j  + l)-phi(j-l))/4. 

term4  = conc(2  j-l)-2*conc(2,j)  + conc(2,j  + 1) 
term5  = z(2)/RTF*conc(2,j)*(phi(j-l)-2*phi(j)+phi(j  + 1)) 
term6  = z(2)/RTF*(conc(2,j  + l)-conc(2,j-l)) 

1 *(phi(j  + l)-phi(j-l))/4. 

term7  = conc(8,j-l)-2*conc(8,j)  + conc(8,j  + l) 

term8  = z(8)/RTF*conc(8,j)*(phi(j-l)-2*phi(j)+phi(j  + 1)) 

term9  = z(8)/RTF*(conc(8,j  + l)-conc(8,j-l)) 

1 *(phi(j  + l)-phi(j-l))/4. 

g(6)  = Db(4)*(terml+term2  + term3) 

1 +2.*Db(2)*(term4  + term5  + term6) 

1 + 3.*Db(8)*(term7  + term8  + term9) 

big = dabs(Db(4)  *conc(4,j  - 1 )) 

if(big.lt.dabs(Db(4)*conc(4,j  + l)))big=dabs(Db(4)*conc(4,j  + 1)) 
i f(big . It . dabs(Db(2)  *2  *conc(2  ,j  )))big = dabs(Db(2)  *2  *conc(2  ,j )) 
if(big.lt.dabs(Db(2)*conc(2,j  + l)))big=dabs(Db(2)*conc(2,j  + 1)) 
if(big.  It.  dabs(Db(2)  *conc(2  ,j  - l)))big = dabs(Db(2)*conc(2  ,j  - 1)) 
if(big.lt.dabs(Db(8)*2*conc(8,j)))big=dabs(Db(8)*2*conc(8,j)) 
if(big.lt.dabs(Db(8)*conc(8,j  + l)))big  = dabs(Db(8)*conc(8  ,j  + 1)) 
if(big.lt.dabs(Db(8)*conc(8,j-l)))big  = dabs(Db(8)*conc(8,j-l)) 

if(big.lt.dabs(Db(4)*z(4)/RTF*conc(4,j  + l)*phi(j  + 1)/4.)) 

1 big=dabs(Db(4)*z(4)/RTF*conc(4,j  + l)*phi(j  + 1)/4.) 

if(big.lt.dabs(Db(2)*z(2)/RTF*conc(2,j  + l)*phi(j  + 1)/4.)) 

1 big=dabs(Db(2)*z(2)/RTF*conc(2,j  + l)*phi(j  + 1)/4.) 

if(big.lt.dabs(Db(8)*z(8)/RTF*conc(8,j  + l)’Kphi(j  + 1)/4.)) 

1 big  = dabs(Db(8)*z(8)/RTF*conc(8  ,j  + l)*phi(j  + 1)/4.) 

if(dabs(g(6)).le.big*errmax)  g(6)  = 0. 


del.N(H  + )-del.N(OH-)  + 3*del.N(Cu  + +) =0 
fix  bigs 
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temp5  = -l.+z(5)/RTF*(phi(j  + l)-phi(j-l))/4. 

a(7,5)  = Db(5)*temp5 

temp5  = 2.-z(5)/RTF*(phi(j-l)-2*phi(j)+phi(j  + l)) 

b(7,5)  = Db(5)*temp5 

temp5  = -l.-z(5)/RTF*(phi(j  + l)-phi(j-l))/4. 

d(7,5)  = Db(5)*temp5 

temp6  = -(-1.  +z(6)/RTF*(phi(j  + l)-phi(j-l))/4.) 

a(7,6)  = Db(6)*temp6 

temp6  = -(2.-z(6)/RTF*(phi(j-l)-2*phi(j)+phi(j  + l))) 

b(7,6)  = Db(6)*temp6 

temp6  = -(-l.-z(6)/RTF*(phi(j  + l)-phi(j-l))/4.) 

d(7,6)  = Db(6)*temp6 

temp9  = -1 . + z(9)/RTF*(phi(j  + l)-phi(j-l))/4. 

a(7,9)  = 3*Db(9)*temp9 

temp9  = 2.-z(9)/RTF*(phi(j-l)-2*phi(j)+phi(j  + l)) 

b(7,9)  = 3*Db(9)*temp9 

temp9  = -l.-z(9)/RTF*(phi(j  + l)-phi(j-l))/4. 

d(7,9)  = 3*Db(9)*temp9 


temp5  = -z(5)/RTF*conc(5,j) 

1 +z(5)/RTF*(conc(5,j  + l)-conc(5,j-l))/4. 

temp6  = -z(6)/RTF*conc(6  ,j ) 

1 +z(6)/RTF*(conc(6,j  + l)-conc(6,j-l))/4. 

temp9  = -z(9)/RTF*conc(9,j) 

1 +z(9)/RTF*(conc(9,j  + l)-conc(9,j-l))/4. 

a(7,n-l)  = Db(5)*temp5-Db(6)*temp6  +3*Db(9)*temp9 

temp5  = 2.*z(5)/RTF*conc(5,j) 
temp6  = 2.*z(6)/RTF*conc(6,j) 
temp9  = 2.*z(9)/RTF*conc(9,j) 

b(7 , n- 1 ) = Db(5)  *temp5  -Db(6)  *temp6  + 3*Db(9)  *temp9 

temp5  = -z(5)/RTF*conc(5,j) 

1 -z(5)/RTF*(conc(5,j  + l)-conc(5,j-l))/4. 

temp6  = -z(6)/RTF*conc(6,j) 

1 -z(6)/RTF *(conc(6  ,j  + l)-conc(6,j-l))/4. 

temp9  = -z(9)/RTF*conc(9,j) 

1 -z(9)/RTF*(conc(9,j  + l)-conc(9,j-l))/4. 

d(7,n-l)  = Db(5)*temp5-Db(6)*temp6  + 3*Db(9)*temp9 
terml  = conc(5,j-l)-2*conc(5,j)  +conc(5,j  + 1) 
term2  = z(5)/RTF*conc(5,j)*(phi(j-l)-2*phi(j)+phi(j  + l)) 
term3  = z(5)/RTF*(conc(5,j  + l)-conc(5,j-l)) 

1 *(pbi(j  + l)-phi(j-l))/4. 

term4  = conc(6,j-l)-2*conc(6,j)+conc(6,j  + l) 

term5  = z(6)/RTF*conc(6,j)*(phi(j-l)-2*phi(j)  +phi(j  + 1)) 

term6  = z(6)/RTF*(conc(6  j + l)-conc(6,j-l)) 

1 *(phi(j  + l)-phi(j-l))/4. 

term7  = conc(9  j-l)-2*conc(9,j)+conc(9,j  + 1) 
term8  = z(9)/RTF*conc(9,j)*(phi(j-l)-2*phi(j)+phi(j  + l)) 
term9  = z(9)/RTF*(conc(9,j  + l)-conc(9,j-l)) 

1 *(phi(j  + l)-phi(j-l))/4. 


g(7)  = Db(5)*(terml  + term2  + term3)-Db(6)*(term4  + term5  + term6) 

1 +3  *Db(9)*(term7  + term8  + term9) 


big = dabs(Db(5)  *conc(5  ,j  - 1 )) 

if(big.lt.dabs(Db(5)*conc(5,j  + l)))big=dabs(Db(5)*conc(5,j  + 1)) 
if(big.lt.dabs(Db(6)*2*conc(6,j)))big=dabs(Db(6)*2*conc(6,j)) 
if(big.lt.dabs(Db(6)*conc(6,j  + l)))big=dabs(Db(6)*conc(6,j  + 1)) 
if(big.  It.  dabs(Db(6)  *conc(6  ,j  -l)))big = dabs(Db(6)  *conc(6  ,j  - 1)) 
if(big.lt.dabs(Db(9)*2*conc(9,j)))big=dabs(Db(9)*2*conc(9,j)) 
if(big.lt.dabs(Db(9)*conc(9,j  4-  l)))big=dabs(Db(9)*conc(9,j  + 1)) 
if(big.lt.dabs(Db(9)*conc(9,j-l)))big  = dabs(Db(9)*conc(9,j-l)) 

if(big.lt.dabs(Db(5)*z(5)/RTF*conc(5,j  + l)*phi(j  + 1)/4.)) 

1 big = dabs(Db(5)*z(5)/RTF*conc(5,j  + l)*phi(j  + 1)/4.) 
if(big.lt.dabs(Db(6)*z(6)/RTF*conc(6,j  + l)*phi(j  + 1)/4.)) 

1 big  = dabs(Db(6)*z(6)/RTF*conc(6,j  + l)*phi(j  + 1)/4.) 
if(big.lt.dabs(Db(9)*z(9)/RTF*conc(9,j  + l)*phi(j  + 1)/4.)) 

1 big  = dabs(Db(9)*z(9)/RTF*conc(9,j  + l)*phi(j  + 1)/4.) 

if(dabs(g(7)).le.big*errmax)  g(7)  = 0. 


del.N(7)  =0 
del.N(O2)=0 


a(8,7)  = -1. 
b(8,7)  = 2. 
d(8,7)  = -1. 

g(8)  = conc(7,j-l)-2*conc(7,j)+conc(7,j  + l) 

big = dabs(conc(7  ,j  - 1 )) 
if(big.  It.  conc(7,j)) 

1 big=conc(7,j) 
if(big.lt.conc(7,j  + 1)) 

1 big=conc(7,j  + l) 
if(dabs(g(8)).le.big*errmax)  g(8)  = 0. 


Vcu  gradient  = 0.0 

a(9,n)  = 1. 
b(9,n)  = -1. 
g(9)  = Vcu(j)-Vcu(j-1) 
big = dabs(Vcu(j )) 

if(dabs(g(9)).le.big*errmax)  g(9)  = 0. 


Cu+  + 3 Cl-  = CuC12- 
Equilibrium  given  by  Eq2 


b(10,l)  = -Eq2*conc(4,j)**3 
b(10,8)  = 1. 

b(10,4)  = -3 . *Eq2*conc(  1 ,j)*conc(4,j)**2 
g(10)  = Eq2*conc(l,j)*conc(4,j)**3-conc(8,j) 
big = dabs(conc(8  ,j)) 

ifCbig.lt.  dabs(Eq2  *conc(  1 ,j  ) *conc(4  ,j  ) **3)) 

1 big = dabs(conc(l  ,j)*conc(4,j)**3) 

if(dabs(g(10)).le.big*errmax)  g(10)  = 0. 

b(10,l)  = -l./conc(l,j) 
b(10,8)  = l./conc(8,j) 
b(10,4)  = -3./conc(4,j) 

g(10)  = dlog(Eq2*conc(l,j)*conc(4,j)**3/conc(8  ,j)) 
if(dabs(g(10)).le.errmax)  g(10)  = 0. 


del.N(9)  + del.N(10)=0 
del.N(Cu++)  + del.N(HCu02-)  = 0 
fix  bigs 

a(ll,9)  = -1.  + z(9)/RTF*(phi(j  + l)-phi(j-l))/4. 
b(ll,9)  = 2.-z(9)/RTF*(phi(j-l)-2*phi(j)  +phi(j  + 1)) 
d(l  1,9)  = -l.-z(9)/RTF*(phi(j  + l)-phi(j-l))/4. 
a(ll,9)  = Db(9)*a(ll,9) 
b(ll,9)  = Db(9)*b(l  1,9) 
d(ll,9)  = Db(9)*d(ll,9) 

a(ll,10)  = -1.  +z(10)/RTF*(phi(j  + l)-phi(j-l))/4. 
b(ll,10)  = 2.-z(10)/RTF*(phi(j-l)-2*phi(j)  +phi(j  + 1)) 

d(ll,10)  = -l.-z(10)/RTF*(phi(j  + l)-phi(j-l»/4. 
a(ll,10)  = Db(10)*a(ll,10) 

b(ll,10)  = Db(10)*b(ll,10) 

d(ll,10)  = Db(10)*d(ll,10) 


tempi  = -z(9)/RTF*conc(9,j) 

1 +z(9)/RTF*(conc(9  j + l)-conc(9,j-l))/4. 

temp2  = -z(10)/RTF*conc(10,j) 

1 +z(10)/RTF*(conc(10,j  + l)-conc(10,j-l))/4. 

a(ll,n-l)  = Db(9)*templ+Db(10)*temp2 

tempi  = 2.*z(9)/RTF*conc(9,j) 

temp2  = 2.*z(10)/RTF*conc(10,j) 

b(ll,n-l)  = Db(9)*  tempi  +Db(10)*temp2 

tempi  = -z(9)/RTF*conc(9,j) 

1 -z(9)/RTF*(conc(9,j  + l)-conc(9,j-l))/4. 

temp2  = -z(10)/RTF*conc(10,j) 

1 -z(10)/RTF*(conc(10,j  + l)-conc(10,j-l))/4. 

d(ll,n-l)  = Db(9)*templ  +Db(10)*temp2 

terml  = conc(9,j-l)-2*conc(9,j)+conc(9,j  + l) 

term2  = z(9)/RTF*conc(9,j)*(phi(j-l)-2*phi(j)+phi(j  + l)) 
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term3  = z(9)/RTF*(conc(9,j  + l)-conc(9,j-l)) 

1 *(phi(j  + l)-phi(j-l))/4. 

term4  = conc(10,j-l)-2*conc(10,j)+conc(10,j  + l) 

term5  = z(10)/RTF*conc(10,j)*(phi(j-l)-2*phi(j)+phi(j  + l)) 

term6  = z(10)/RTF*(conc(10,j  + l)-conc(10,j-l)) 

1 *(phi(j  + l)-phi(j-l))/4- 

g(ll)  = Db(9)*(terml+term2  + tenn3)+Db(10)*(term4  + term5  + term6) 


big=dabs(Db(10)*conc(10,j-l)) 
if(big.lt.dabs(Db(10)*conc(10,j  + 1))) 

1 big  = dabs(Db(10)*conc(10,j  + l)) 

if(big.  It.  dabs(Db(9)*2*conc(9  ,j)))big = dabs(Db(9)*2*conc(9,j)) 
if(big.lt.dabs(Db(9)*conc(9,j  + l)))big=dabs(Db(9)*conc(9,j  + 1)) 
if(big . It . dabs(Db(9)  *conc(9 , j - 1 )))big  = dabs(Db(9)  *conc(9  ,j  - 1 )) 

if(big.lt.dabs(Db(10)*z(10)/RTF*conc(10,j  + l)*phi(j  + 1)/4.)) 

1 big = dabs(Db(  1 0)  *z(  1 0)/RTF  *conc(  10  ,j  + l)*phi(j  + 1)/4.) 

if(big.lt.dabs(Db(9)*z(9)/RTF*conc(9,j  + l)*phi(j  + 1)/4.)) 

1 big = dabs(Db(9)  *z(9)/RTF*conc(9  ,j  + l)=^phi(j  + 1)/4.) 

if(dabs(g(ll)).le.big*errmax)  g(ll)  = 0. 


c 

c Cu++  + H20  = HCu02-  + 3H  + 

c Equilibrium  given  by  Eq4 

c 

c b(12,5)  = -3.*conc(10,j)*conc(5,j)**2 

c b(12,9)  = Eq4 

c b(12,10)  = -conc(5,j)**3 

c g(12)  = conc(10,j)*conc(5,j)**3-Eq4’,‘conc(9,j) 

c big=conc(10,j)*conc(5,j)**3 

c if(big.lt.Eq4*conc(9,j))  big=Eq4*conc(9,j) 

c if(dabs(g(12)).le.big*errmax)  g(12)  = 0. 


b(12,5)  = -3./conc(5,j) 
b(12,9)  = l./conc(9,j) 
b(12,10)  = -l./conc(10,j) 

g(12)  = dlog(conc(10,j)*conc(5,j)**3/conc(9,j)/Eq4) 
if(dabs(g(12)).le.errmax)  g(12)  = 0. 


itest=0 
DO  57  i=l,n 
if  (g(i).ne.O.O)  itest=l 
57  continue 

c if  (itest.eq.l  .and.  iter.ne.l  .and.  j.eq.2) 
c 1 print*,’j  = ’,j,’g=,,g 

c if  (itest.eq.l  .and.  iter.ne.l  .and.  j.eq.20) 
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c 1 print*,’j  = ’,j,’g=’,g 

c if  (itest.eq.l  .and.  iter.eq.itmax  .and.  j.eq.2) 
c 1 print*, ’j  = ’,j,’g  = ’,g 

if  (itest.eq.l  .and.  iter.eq.itmax) 

1 print*, ’j  = ’,j,,g=’,g 


return 

end 


subroutine  ssinter(j) 

Q ************************************************************** 

c * sets  all  concentrations  to  bulk  values  * 

Q ************************************************************** 

implicit  double  precision(a-h,o-z) 

COMMON/BA/  N,NJ,A(12,12),B(12,12),C(12,1001),D(12,25),G(12) 

1 ,X(12, 12),  Y(12, 12) 

common/var/conc(  1 0 , 1 00 1)  ,phi(  1 00 1 ) 

1 ,Vcu(1001) 

common/par/dfb , Db(  1 0) , z(  1 0) , delf , delb , dhf , dhb , rpm 

1 ,rkl,rk2,rko2,Eql,Eq2,Eq3,Eq4,betaa,betac,area 

2 , pH,  c2sat,vz,  alpha,  Ahfc,Vm,ij 
common/const/errmax, RTF, pi, Farad, iter, itmax 
common/ curr/ current 

constl  - 2. /dhf/ (dhf  + dhb) 
const2  - 2./dhb/(dhf+dhb) 
squig  = (dhb-dhf)/2./(dhb  + dhf) 

c calculate  vz(j  +0.5)  and  vz(j-0.5) 
c vz(j-0.5)  is  used  here  like  an  image  point 
zz= delf  + dhb*(0.5) 
call  calcvz(zz) 
vzpoh=vz 
zz = delf  + dhf*(0 . 5) 
call  calcvz(zz) 
vzmoh=-vz 

zzsquig = delf  + squig*dhb 
call  calcvz(zzsquig) 
vzps  = vz 
c 

c ELECTRONEUTRALITY 
c 


DO  46  index  =l,n-2 
b(l,  index)  = -z(index) 
g(l)  = z(index)*conc(index,j)  + g(l) 
46  continue 


big  = conc(l,j) 

DO  47  index  =l,n-2 

if(big.lt.conc(index,j))  big  = conc(index,j) 
47  continue 

if(dabs(g(l)).le.big*emnax)  g(l)  = 0. 


water  equilibrium 

b(2,5)  = -conc(6  j) 

b(2,6)  = -conc(5,j) 

g(2)  = conc(5,j)*conc(6,j)-l.e-20 

big = conc(5  ,j ) *conc(6  ,j ) 

if(big.lt.l.e-20)  big  = l.e-20 
if(dabs(g(2)).le.big*emnax)  g(2)  = 0. 


del.N(3)=0 


a(3,3)  = dfb*Db(3)*constl 
1 +vzps/(dhb  + dhf) 

1 -z(3)*dfb*Db(3)/RTF/dhf/(dhb +dhf)*(phi(j)-phi(j-l)) 
b(3,3)  = -Db(3)*const2-dfb*Db(3)*constl 
1 -2.*(vzpoh-vzmoh)/(dhb  + dhf) 

1 + z(3)*Db(3)/RTF/dhb/(dhb + dhf)*(phi(j  + l)-phi(j)) 

1 -dfb*z(3)*Db(3)/RTF/dhf/(dhb  + dhf)*(phi(j)-phi(j-l)) 

d(3,3)  = Db(3)*const2 

1 -vzps/ (dhb  + dhf)-squig*2 . *(vzpoh-vzmoh)/ (dhb  + dhf) 

1 + z(3)*Db(3)/RTF/dhb/(dhb + dhf)*(phi(j  + l)-phi(j)) 

a(3,n-l)  = + z(3)*dfb*Db(3)/RTF/dhf/ (dhb + dhf)*(conc(3  ,j) 
1 +conc(3,j-l)) 

b(3,n-l)  = -z(3)*dfb*Db(3)/RTF/dhf/(dhb  + dhf)*(conc(3,j) 

1 +conc(3,j-l)) 

1 -z(3)  *Db(3)/RTF  / dhb/ (dhb  + dhf)*(conc(3,j) 

1 +conc(3,j  + l)) 

d(3,n-l)  = z(3)*Db(3)/RTF/dhb/(dhb  + dhf)*(conc(3,j) 

1 +conc(3,j  + l)) 

tdiff  = Db(3)*(conc(3,j  + l)-conc(3,j))*const2 
1 -dfb’|,Db(3)*(conc(3,j)-conc(3,j-l))*constl 

tconv  = -(conc(3,j  + l)-conc(3,j-l))*vzps/(dhb+dhf) 

1 -(conc(3  ,j)  + squig*conc(3  ,j  + 1)) 

1 *2.*(vzpoh-vzmoh)/(dhb+dhf) 

tmig  = z(3)*Db(3)/RTF/dhb/(dhb  + dhf)*(conc(3,j) 

1 + conc(3  ,j  + l))*(phi(j  + l)-phi(j)) 

1 -z(3)*dfb*Db(3)/RTF/dhf/(dhb + dhf)*(conc(3  ,j) 

1 +conc(3,j-l))*(phi(j)-phi(j-l)) 


g(3)  = -tdiff-tconv-tmig 


big  = dabs(Db(3)*conc(3,j  + l)*const2) 
if(big.  It.  dabs(conc(3  ,j  - 1 ) *vzps/(dhb + dhf))) 

1 big  = dabs(conc(3j-l)*vzps/(dhb+dhf)) 
if(big.lt.dabs(Db(3)/RTF/dhb/(dhb  + dhf)*phi(j  + l)*conc(3,j))) 

1 big  = dabs(Db(3)/RTF/dhb/(dhb  + dhf)*phi(j  + l)*conc(3,j)) 

if(dabs(g(3)).le.big*errmax)  g(3)  = 0. 


Cu+  + 2 Cl-  = CuC12- 
Equilibrium  given  by  Eql 


b(4,l)  = -Eql  *conc(4  ,j ) **2 
b(4,2)  = 1. 

b(4,4)  = -2 . *Eq  1 *conc(  1 ,j ) *conc(4  ,j ) 

g(4)  = Eql  *conc(  1 ,j ) *conc(4  ,j ) **2-conc(2  ,j ) 

big = dabs(conc(2,j)) 

if(big . It . dabs(Eq  1 *conc(  1 ,j ) *conc(4  ,j ) **2)) 

1 big = dabs(Eql  *conc(l  ,j)*conc(4,j)**2) 

if(dabs(g(4)).le.big*errmax)  g(4)  = 0. 


b(4,l)  = -l./conc(l,j) 
b(4,2)  = l./conc(2,j) 
b(4,4)  = -2./conc(4,j) 

g(4)  = dlog(Eq  1 *conc(  1 ,j ) *conc(4  ,j  ) * *2/conc(2  ,j )) 

if(dabs(g(4)).le.errmax)  g(4)  = 0. 


Cu+  + 3 Cl-  = CuC12- 
Equilibrium  given  by  Eq2 

b(10,l)  = -Eq2*conc(4  ,j ) * *3 
b(10,8)  = 1. 

b(10,4)  = -3 . *Eq2*conc(l  ,j)*conc(4,j)**2 
g(10)  = Eq2*conc(  1 ,j)  *conc(4  ,j)*'l<3  -conc(8  ,j ) 

big = dabs(conc(8  ,j )) 

if(big.lt.dabs(Eq2*conc(l,j)*conc(4,j)**3)) 

1 big = dabs(conc(  1 ,j ) *conc(4  ,j)**3) 

if(dabs(g(10)).le.big*errmax)  g(10)  = 0. 


b(10,l)  = -l./conc(l,j) 
b(10,8)  = l./conc(8,j) 
b(10,4)  = -3./conc(4,j) 

g(10)  = dlog(Eq2*conc(l,j)*conc(4,j)**3/conc(8,j)) 

if(dabs(g(10)).le.errmax)  g(10)  = 0. 


saturation  of  CuC12-  in  film 


b(4,2)  = -1. 

g(4)  = conc(2,j)  - c2sat 

big = dabs(conc(2,j)) 

if(dabs(g(4)).le.big*errmax)  g(4)  = 0. 


Cu+  and  CuC12-  and  CuC13(2-) 
del.Nl+del.N2+del.N8  = 0 
check,  g value  too  high 

a(5,l)  = dfb*Db(l)*constl 
1 +vzps/(dhb+dhf) 

1 -z(l)*dfb*Db(l)/RTF/dhf/(dhb  + dhf)*(phi(j)-phi(j-l)) 

b(5,l)  = -Db(l)*const2-dfb*Db(l)*constl 
1 -2.*(vzpoh-vzmoh)/(dhb+dhf) 

1 +z(l)*Db(l)/RTF/dhb/(dhb  + dhf)*(phi(j  + l)-phi(j)) 

1 -dfb*z(l)*Db(l)/RTF/dhf/(dhb  + dhf)*(phi(j)-phi(j-l)) 

d(5,l)  = Db(l)*const2 

1 -vzps/(dhb + dhf)-squig*2.  *(vzpoh-vzmoh)/(dhb  + dhf) 

1 + z(  1)  *Db(  l)/RTF/dhb/ (dhb  + dhf)  *(phi(j  + l)-phi(j)) 

a(5,2)  = dfb*Db(2)*constl 
1 +vzps/(dhb+dhf) 

1 -z(2)*dfb*Db(2)/RTF/dhf/(dhb  + dhf)*(phi(j)-phi(j-l)) 

b(5,2)  = -Db(2)*const2-dfb*Db(2)*constl 
1 -2.*(vzpoh-vzmoh)/(dhb+dhf) 

1 + z(2)  *Db(2)/RTF/ dhb/(dhb + dhf)*(phi(j  + l)-phi(j)) 

1 -dfb*z(2)*Db(2)/RTF/dhf/(dhb+dhf)*(phi(j)-phi(j-l)) 
d(5,2)  = Db(2)*const2 

1 -vzps/(dhb  + dhf)-squig*2.*(vzpoh-vzmoh)/(dhb+dhf) 

1 + z(2)  *Db(2)  /RTF  / dhb/(dhb + dhf)*(phi(j  + l)-phi(j)) 

a(5,8)  = dfb*Db(8)*constl 
1 +vzps/(dhb  + dhf) 

1 -z(8)*dfb+Db(8)/RTF/dhf/(dhb +dhf)"'(phi(j)-phi(j-l)) 

b(5,8)  = -Db(8)*const2-dfb*Db(8)*constl 
1 -2.*(vzpoh-vzmoh)/(dhb  + dhf) 

1 + z(8)*Db(8)/RTF/dhb/(dhb  + dhf)*(phi(j  + l)-phi(j)) 

1 -dfb*z(8)*Db(8)/RTF/dhf/(dhb  + dhf)*(phi(j)-phi(j-l)) 

d(5,8)  = Db(8)*const2 

1 -vzps/(dhb  + dhf)-squig*2.*(vzpoh-vzmoh)/(dhb  + dhf) 

1 + z(8)*Db(8)/RTF/dhb/(dhb  + dhf)*(phi(j  + l)-phi(j)) 

a(5,n-l)  = +z(l)*dfb*Db(l)  /RTF /dhf/ (dhb + dhf)  *(conc(  1 ,j  ) 
1 +conc(l,j-l)) 

1 + z(2)  *dfb*Db(2)/RTF /dhf/ (dhb  + dhf)*(conc(2,j) 

1 +conc(2,j-l)) 

1 + z(8)*dfb!)‘Db(8)/RTF /dhf/ (dhb  + dhf)*(conc(8,j) 

1 +conc(8,j-l)) 

b(5,n-l)  = -z(l)*dfb*Db(l) /RTF /dhf/ (dhb  + dhf)  *(conc(  1 ,j ) 

1 +conc(l,j-l)) 


1 -z(l)*Db(l)/RTF/dhb/(dhb + dhf)*(conc(l,j) 

1 +conc(l,j  + l)) 

1 -z(2)  *dfb  *Db(2)  /RTF /dhf/(dhb + dhf)  *(conc(2  ,j  ) 

1 +conc(2,j-l)) 

1 -z(2)*Db(2)/RTF/dhb/(dhb  + dhf)*(conc(2,j) 

1 +conc(2J  + l)) 

1 -z(8)*dfb*Db(8)/RTF/dhf/(dhb  + dhf)*(conc(8,j) 

1 +conc(8,j-l)) 

1 -z(8)*Db(8)/RTF/dhb/(dhb + dhf)*(conc(8  ,j) 

1 +conc(8,j  + l)) 

d(5,n-l)  = z(l)*Db(l)/RTF/dhb/(dhb +dhf)*(conc(l  ,j) 

1 +conc(l,j  + l)) 

1 + z(2)  *Db(2)/RTF  / dhb/ (dhb  + dhf)*(conc(2,j) 

1 +conc(2j  + l)) 

1 + z(8)*Db(8)/RTF/dhb/(dhb + dhf)*(conc(8  ,j) 

1 +conc(8,j  + l)) 

tdiffl  = Db(l)*(conc(l,j  + l)-conc(l,j))*const2 
1 -dfb*Db(l)*(conc(l  ,j)-conc(l  ,j-l))*constl 

tconvl  = (conc(l,j  + l)-conc(l,j-l))*vzps/(dhb  + dhf) 

1 + (conc(l,j)  + squig*conc(l,j  + l)) 

1 *2.  *(vzpoh-vzmoh)/(dhb  + dhf) 

tmigl  = z(l)*Db(l)/RTF/dhb/(dhb  + dhf)*(conc(l,j) 

1 +conc(l,j  + l))*(phi(j  + l)-phi(j)) 

1 -z(  1 ) *dfb  *Db(  1 )/RTF /dhf/(dhb + dhf)  *(conc(  1 j ) 

1 +conc(lj-l))*(phi(j)-phi(j-l)) 

tdiff2  = Db(2)*(conc(2,j  4-  l)-conc(2,j))*const2 
1 -dfb*Db(2)  *(conc(2  ,j)  -conc(2  ,j  - 1 ))  *const  1 

tconv2  = -(conc(2,j  + l)-conc(2,j-l))*vzps/(dhb+dhl) 

1 -(conc(2,j)  + squig*conc(2,j  + 1)) 

1 *2.  *(vzpoh-vzmoh)/(dhb +dhf) 

tmig2  = z(2)*Db(2)/RTF/dhb/(dhb+dhf)*(conc(2,j) 

1 +conc(2,j  + l))*(phi(j  + l)-phi(j)) 

1 -z(2)  *dfb  *Db(2)/RTF /dhf/ (dhb + dhf)  *(conc(2  j ) 

1 +conc(2,j-l))*(phi(j)-phi(j-l)) 

tdiffS  = Db(8)*(conc(8,j  + l)-conc(8,j))*const2 
1 -dfb*Db(8)*(conc(8,j)-conc(8,j-l))*constl 

tconv8  = -(conc(8,j  + l)-conc(8,j-l))*vzps/(dhb  + dhf) 

1 -(conc(8j)  + squig*conc(8,j  + l)) 

1 *2.  *(vzpoh-vzmoh)/(dhb  + dhf) 

tmig8  = z(8)*Db(8)/RTF/dhb/(dhb+dhf)*(conc(8,j) 

1 +conc(8,j  + l))*(phi(j  + l)-phi(j)) 

1 -z(8)*dfb*Db(8)/RTF/dhf/(dhb  + dhf)*(conc(8,j) 

1 + conc(8,j-l))*(phiQ-phi(j-l)) 

g(5)  = -tdiffl-tconvl-tmigl-tdiff2-tconv2-tmig2 

1 -tdiff8-tconv8-tmig8 

big  = dabs(Db(l)*conc(l  ,j  + l)*const2) 
if(big . It . dabs(conc(  1 ,j  - 1 ) *vzps/ (dhb  + dhf))) 

1 big  = dabs(conc(l,j-l)*vzps/(dhb  + dhf)) 
if(big.lt.dabs(Db(l)/RTF/dhb/(dhb+dhf)*phi(j  + l)*conc(l,j))) 


1 big  = dabs(Db(l)/RTF/dhb/(dhb  + dhf)*phi(j  + l)*conc(l,j)) 


if(big.lt.dabs(Db(2)*conc(2,j  + l)*const2)) 

1 big  = dabs(Db(2)*conc(2,j  + l)*const2) 
if(big.lt.dabs(conc(2,j-l)*vzps/(dhb  + dhf))) 

1 big  = dabs(conc(2,j-l)*vzps/(dhb+dhf)) 
if(big.lt.dabs(Db(2)/RTF/dhb/(dhb  + dhf)*phi(j  + l)*conc(2,j))) 

1 big  = dabs(Db(2)/RTF/dhb/(dhb+dhf)*phi(j  + l)*conc(2,j)) 

if(big.lt.dabs(Db(8)*conc(8,j  + l)*const2)) 

1 big  = dabs(Db(8)*conc(8j  + l)*const2) 
if(big.lt.dabs(conc(8,j-l)*vzps/(dhb+dhf))) 

1 big  = dabs(conc(8,j-l)*vzps/(dhb+dhf)) 
if(big.lt.dabs(Db(8)/RTF/dhb/(dhb +dhf)*phi(j  + l)*conc(8,j))) 

1 big  = dabs(Db(8)/RTF/dhb/(dhb+dhf)*phi(j  + l)*conc(8,j)) 

if(dabs(g(5)).le.big*errmax)  g(5)  = 0. 


del.Nl+del.N2  + del.N8  = 0 
new,  does  not  use  squig 


a(5,l)  = -dfb*z(l)*Db(l)/dhf/2./RTF*(plii(j)-phi(j-l)) 
1 +dfb*Db(l)/dhf 

b(5,l)  = z(l)*Db(l)/dhb/2./RTF*(phi(j  + l)-phi(j)) 

1 -dfb*z(l)*Db(l)/dhf/2./RTF*(phi(j)-phi(j-l)) 

1 -Db(l)/dhb-dfb*Db(l)/dhf-vzpoh/2. 

d(5,l)  = z(l)*Db(l)/dhb/2./RTF*(phi(j  + l)-phi(j)) 

1 +Db(l)/dhb-vzpoh/2. 

a(5,2)  = -dfb*z(2)*Db(2)/dhf/2./RTF*(phi(j)-phi(j-l)) 
1 +dfb*Db(2)/dhf 

b(5,2)  = z(2)*Db(2)/dhb/2./RTF*(phi(j  + l)-phi(j» 

1 -dfb*z(2)  *Db(2)/ dhf/2.  /RTF*(phi(j)-phi(j  - 1)) 

1 -Db(2)/dhb-dfb*Db(2)/dhf-vzpoh/2. 

d(5,2)  = z(2)*Db(2)/dhb/2./RTF*(phi(j  + l)-phi(j)) 

1 + Db(2)  / dhb-vzpoh/2 . 

a(5,8)  = -dfb*z(8)*Db(8)/dhf/2./RTF*(phi(j)-phi(j-l)) 
1 +dfb*Db(8)/dhf 

b(5,8)  = z(8)*Db(8)/dhb/2./RTF*(phi(j  + l)-phi(j)) 

1 -dfb*z(8)*Db(8)/dhf/2./RTF*(phiG)-phi(j-l)) 

1 -Db(8)/dhb-dfb*Db(8)/dhf-vzpoh/2. 

d(5,8)  = z(8)*Db(8)/dhb/2./RTF*(phi(j  + l)-phi(j)) 

1 +Db(8)/dhb-vzpoh/2. 


a(5,n-l)  = dfb*z(l)*Db(l)/dhf/2./RTF*(conc(l,j)+conc(l,j-l)) 
1 + dfb*z(2)*Db(2)/dhf/2./RTF*(conc(2,j)  + conc(2,j-l)) 

1 +dfb*z(8)*Db(8)/dhf/2./RTF*(conc(8,j)  + conc(8,j-l)) 
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b(5,n-l)  = -z(l)*Db(l)/dhb/2./RTF*(conc(l,j)+conc(l,j  + l)) 
1 -dfb  *z(  1 ) *Db(  1 )/dhf/2 . /RTF  *(conc(  1 ,j) + conc(  1 ,j  - 1)) 

1 -z(2)  *Db(2)  / dhb/2 . /RTF  *(conc(2  ,j ) + conc(2  ,j  + 1)) 

1 -dfb  *z(2)  *Db(2)/dhf/2 . /RTF  *(conc(2  ,j ) 4-  conc(2  ,j  - 1 )) 

1 -z(  8)  *Db(  8)  /dhb/2 . /RTF  *(conc(8  ,j ) + conc(  8 ,j  + 1)) 

1 -dfb*z(8)*Db(8)/dhf/2./RTF*(conc(8,j)-l-conc(8,j-l)) 

d(5,n-l)  = z(l)*Db(l)/dhb/2./RTF*(conc(l,j)+conc(l,j  + 1)) 

1 + z(2)*Db(2)/dhb/2./RTF*(conc(2,j) + conc(2,j  + 1)) 

1 + z(8)*Db(8)/dhb/2./RTF*(conc(8,j) +conc(8,j  + 1)) 

tdiffl  = -Db(l)/dhb*(conc(l,j  + l)-conc(l,j)) 

1 +dfb*Db(l)/dhf*(conc(l,j)-conc(l,j-l)) 

tmigl  = -z(l)*Db(l)/dhb/RTF/2. 

1 *(conc(lj)  + conc(l,j  + l))*(phi(j  + l)-phi(j)) 

1 + dfb*z(l)*Db(l)/dhf/RTF/2. 

1 *(conc(lj)-l-conc(l,j-l))*(phi(j)-phi(j-l)) 

tconvl  = vzpoh/2.*(conc(l,j)+conc(l  j + 1)) 

tdiff2  = -Db(2)/dhb*(conc(2  j + l)-conc(2,j)) 

1 + dfb*Db(2)/dhf*(conc(2,j)-conc(2,j-l)) 

tmig2  = -z(2)*Db(2)/dhb/RTF/2. 

1 *(conc(2,j)  + conc(2,j  + l))*(phi(j  + l)-phi(j)) 

1 +dfb*z(2)*Db(2)/dhf/RTF/2. 

1 *(conc(2,j)+conc(2,j-l))*(phi(j)-phi(j-l)) 

tconv2  = vzpoh/2.*(conc(2,j)  + conc(2,j-)-l)) 

tdiffB  = -Db(8)/dhb*(conc(8,j  + l)-conc(8,j)) 

1 +dfb*Db(8)/dhf*(conc(8,j)-conc(8,j-l)) 

tmig8  = -z(8)*Db(8)/dhb/RTF/2. 

1 *(conc(8,j) +conc(8,j  + l))*(phi(j  + l)-phi(j)) 

1 +dfb*z(8)*Db(8)/dhf/RTF/2. 

1 *(conc(8,j)+conc(8,j-l))*(phi(j)-phi(j-l)) 

tconv8  = vzpoh/2.*(conc(8,j)  + conc(8,j  + l)) 

g(5)  = tdiffl  -t-tconvl  + tmigl  +tdiff2  + tconv2  + tmig2 

1 +tdiff8  + tconv8+tmig8 


big = dabs(Db(  l)/dhb*conc(  1 ,j  + 1)) 
iffbig.lt.  dabs/dfb  *Db(  1 )/  dhf*conc(  1 ,j  ))) 

1 big  = dabs(dfb*Db(l)/dhf*conc(l,j)) 
if(big.lt.dabs(z(l)*Db(l)/dhb/2./RTF*conc(l,j)*phi(j))) 

1 big  = dabs(z(  1 )*Db(  1 )/ dhb/2 . /RTF  *conc(  1 ,j)  *phi(j )) 
if(big.lt.dabs(dfb*z(l)*Db(l)/dhf/2./RTF*conc(l,j)*phi(j))) 

1 big  = dabs(dfb  *z(l)*Db(l)/dhf/2.  /RTF  *conc(  1 ,j ) *phi(j )) 
if(big.lt.dabs(vzpoh/2.  *conc(l  ,j))) 

1 big  = dabs(v  zpoh/2 . *conc(  1 ,j )) 


if(big.lt.dabs(Db(2)/dhb*conc(2,j  + 1))) 


1 big  = dabs(Db(2)/dhb*conc(2  j + 1)) 
if(big.lt.dabs(dfb*Db(2)/dhf*conc(2,j))) 

1 big  = dabs(dfb*Db(2)/dhf*conc(2,j)) 
if(big.lt.dabs(z(2)*Db(2)/dhb/2./RTF*conc(2,j)*phi(j))) 

1 big  = dabs(z(2)*Db(2)/dhb/2./RTF*conc(2d)*phi(j)) 
if(big.lt.dabs(dfb*z(2)*Db(2)/dhf/2./RTF*conc(2,j)*phi(j))) 

1 big  = dabs(dfb*z(2)  *Db(2)/dhf/2.  /RTF  *conc(2  ,j ) *phi(j )) 
if(big.lt.dabs(vzpoh/2.  *conc(2,j))) 

1 big  = dabs(vzpoh/2.*conc(2,j)) 


if(big.lt.dabs(Db(8)/dhb*conc(8,j  + 1))) 

1 big  = dabs(Db(8)/dhb*conc(8,j  + l)) 
if(big.lt.dabs(dfb*Db(8)/dhf*conc(8,j))) 

1 big  = dabs(dfb*Db(8)/dhf*conc(8,j)) 
if(big.lt.dabs(z(8)*Db(8)/dhb/2./RTF*conc(8)j)*phi(j))) 

1 big  = dabs(z(8)  *Db(  8)/ dhb/2 . /RTF  *conc(8  ,j ) *phi(j )) 
if(big.lt.dabs(dfb*z(8)*Db(8)/dhf/2./RTF*conc(8,j)*phi(j))) 

1 big  = dabs(dfb*z(8)*Db(8)/dhf/2./RTF*conc(8,j)*phi(j)) 
if(big.  It.  dabs(vzpoh/2.  *conc(8,j))) 

1 big  = dabs(vzpoh/2.*conc(8,j)) 

if(dabs(g(5)).le.big*errmax)  g(5)  = 0. 


Cl-  and  CuC12-  and  CuC132- 
del.N4  + 2del.N2  + 3del.N8=0 


a(6,4)  = dfb*Db(4)*constl 
1 +vzps/(dhb  + dhf) 

1 -z(4)  *dfb  *Db(4)/RTF  /dhf/ (dhb  + dhf)*(phi(j)-phi(j-l)) 

b(6,4)  = -Db(4)*const2-dfb*Db(4)*constl 
1 -2.*(vzpoh-vzmoh)/(dhb  + dhf) 

1 + z(4)*Db(4)/RTF  / dhb/ (dhb + dhf)*(phi(j  + l)-phi(j)) 

1 -dfb*z(4)*Db(4)/RTF /dhf/ (dhb + dhf)*(phi(j)-phi(j-l)) 

d(6,4)  = Db(4)*const2 

1 -vzps/(dhb  + dhf)-squig*2.  *(vzpoh-vzmoh)/(dhb  -I-  dhf) 

1 + z(4)*Db(4)/RTF/dhb/(dhb + dhf)*(phi(j  + l)-phi(j)) 

a(6,2)  = 2*(dfb*Db(2)*constl 
1 +vzps/(dhb+dhf) 

1 -z(2)  *dfb  *Db(2)/RTF /dhf/ (dhb  + dhf)*(phi(j)-phi(j-l») 

b(6,2)  = 2*(-Db(2)*const2-dfb*Db(2)*constl 
1 -2.  *(vzpoh-vzmoh)/(dhb  + dhf) 

1 + z(2)*Db(2)/RTF/dhb/(dhb  + dhf)*(phi(j  + l)-phi(j)) 

1 -dfb*z(2)*Db(2)/RTF/dhf/(dhb+dhf)*(phi(j)-phi(j-l))) 
d(6,2)  = 2*(Db(2)*const2 

1 -vzps/ (dhb  + dhf)-squig*2.  *(vzpoh-vzmoh)/(dhb  + dhf) 

1 + z(2)*Db(2)/RTF/dhb/(dhb + dhf)*(phi(j  + l)-phi(j))) 


a(6,8)  = 3*(dfb>i<Db(8)*constl 
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1 + vzps/(dhb  + dhf) 

1 -z(8)*dfb*Db(8)/RTF/dhf/(dhb+dhf)*(phi(j)-phi(j-l))) 

b(6,8)  = 3*(-Db(8)*const2-dfb*Db(8)*constl 
1 -2.*(vzpoh-vzmoh)/(dhb+dhf) 

1 + z(8)*Db(8)/RTF/dhb/(dhb + dhf)*(phi(j  + l)-phi(j)) 

1 -dfb*z(8)*Db(8)/RTF/dhf/(dhb+dhf)*(phi(j)-phi(j-l») 
d(6,8)  = 3*(Db(8)*const2 

1 -vzps/ (dhb  + dhf)-squig*2.  *(vzpoh-vzmoh)/(dhb + dhf) 

1 + z(8)*Db(8)/RTF/dhb/(dhb  + dhf)*(phi(j  + l)-phi(j))) 

a(6,n-l)  = z(4)*dfb*Db(4)/RTF/dhf/(dhb+dhf)*(conc(4,j) 

1 +conc(4,j-l)) 

1 +2*(z(2)*dfb*Db(2)/RTF/dhf/(dhb+dhf)*(conc(2,j) 

1 +conc(2,j-l») 

1 + 3 *(z(8)*dfb*Db(8)/RTF/dhf/(dhb  + dhf)*(conc(8,j) 

1 +conc(8,j-l))) 

b(6,n-l)  = -z(4)*dfb*Db(4)/RTF/dhf/(dhb  + dhf)*(conc(4,j) 

1 +conc(4,j-l)) 

1 -z(4)*Db(4)/RTF/dhb/(dhb + dhf)*(conc(4,j) 

1 + conc(4j  + l)) 

1 + 2*(-z(2)*dfb*Db(2)/RTF/dhf/(dhb  + dhf)*(conc(2,j) 

1 +conc(2,j-l)) 

1 -z(2)  *Db(2)/RTF  / dhb/ (dhb  + dhf)*(conc(2,j) 

1 +conc(2,j  + l))) 

1 + 3 *(-z(8)  *dfb*Db(8)/RTF/dhf/ (dhb  + dhf)  *(conc(8  j) 

1 +conc(8j-l)) 

1 -z(8)*Db(8)/RTF/dhb/(dhb + dhf)*(conc(8,j) 

1 +conc(8,j  + l))) 

d(6,n-l)  = z(4)  *Db(4)/RTF  / dhb/ (dhb + dhf)  *(conc(4  ,j  ) 

1 +conc(4,j  + l)) 

1 + 2*(z(2)*Db(2)/RTF/dhb/(dhb + dhf)*(conc(2,j) 

1 +conc(2,j  + l))) 

1 +3*(z(8)*Db(8)/RTF/dhb/(dhb+dhf)*(conc(8,j) 

1 +conc(8,j  + l))) 

tdiff4  = Db(4)*(conc(4,j  + l)-conc(4,j))*const2 
1 -dfb*Db(4)  *(conc(4  ,j  )-conc(4  ,j  - 1))  *const  1 

tconv4  = (conc(4,j  + l)-conc(4,j-l))*vzps/(dhb+dhf) 

1 + (conc(4,j)  + squig*conc(4,j  + 1)) 

1 *2.  *(vzpoh-vzmoh)/(dhb  + dhf) 

tmig4  = z(4)*Db(4)/RTF/dhb/(dhb  + dhf)*(conc(4,j) 

1 +conc(4  j + l))*(phi(j  + l)-phi(j)) 

1 -z(4)  *dfb  *Db(4)/RTF /dhf/ (dhb + dhf)  *(conc(4  ,j ) 

1 +conc(4j-l))*(phi(j)-phi(j-l)) 

tdiff2  = Db(2)*(conc(2,j  + l)-conc(2,j))*const2 
1 -dfb  *Db(2)  *(conc(2  ,j  )-conc(2  ,j  - 1 ))  *const  1 

tconv2  = -(conc(2,j  + l)-conc(2,j-l))*vzps/(dhb  + dhf) 

1 -(conc(2,j)  + squig*conc(2,j  + 1)) 

1 *2.  *(vzpoh-vzmoh)/(dhb + dhf) 

tmig2  = z(2)*Db(2)/RTF/dhb/(dhb  + dhf)*(conc(2,j) 

1 + conc(2,j  + l))*(phi(j  + l)-phi(j)) 


1 -z(2)*dfb*Db(2)/RTF/dhf/(dhb + dhf)*(conc(2,j) 

1 +conc(2,j-l))*(phi(j)-phi(j-l)) 

tdiffS  = Db(8)*(conc(8,j  + l)-conc(8,j))*const2 
1 -dfb*Db(8)*(conc(8,j)-conc(8,j-l))*constl 

tconv8  = -(conc(8,j  + l)-conc(8,j-l))*vzps/(dhb  + dhf) 

1 -(conc(8  ,j)  + squig*conc(8,j  + 1)) 

1 *2.*(vzpoh-vzmoh)/(dhb  + dhf) 

tmig8  = z(8)*Db(8)/RTF/dhb/(dhb  + dhf)*(conc(8,j) 

1 +conc(8,j  + l))*(phi(j  + l)-phi(j)) 

1 -z(8)  *dfb  *Db(  8)/RTF /dhf/ (dhb  + dhf)  *(conc(  8 ,j ) 

1 +conc(8,j-l))*(phi(j)-phi(j-l)) 

g(6)  = -(tdiff4+tconv4  + tmig4) 

1 -2.*(tdiff2  + tconv2  + tmig2) 

1 -3.*(tdiff8  + tconv8  + tmig8) 

big  = dabs(Db(4)*conc(4,j  + l)*const2) 
if(big.  It . dabs(conc(4,j  - 1)  *vzps/(dhb + dhf))) 

1 big  = dabs(conc(4,j  - 1 ) *vzps/(dhb  + dhf)) 
if(big.lt.dabs(Db(4)/RTF/dhb/(dhb  + dhf)*phi(j  + l)*conc(4,j))) 

1 big  = dabs(Db(4)/RTF/dhb/(dhb  + dhf)*phi(j  + l)*conc(4,j)) 

if(big.lt.dabs(Db(2)*conc(2,j  + l)*const2)) 

1 big  = dabs(Db(2)*conc(2,j  + l)*const2) 
if(big.lt.dabs(conc(2,j-l)*vzps/(dhb  + dhf))) 

1 big  = dabs(conc(2,j-l)*vzps/(dhb+dhf)) 
if(big.lt.dabs(Db(2)/RTF/dhb/(dhb  + dhf)*phi(j  + l)*conc(2,j))) 

1 big  = dabs(Db(2)/RTF/dhb/(dhb  + dhf)*phi(j  + l)*conc(2,j)) 

if(big.lt.dabs(Db(8)*conc(8,j  + l)*const2)) 

1 big  = dabs(Db(8)*conc(8,j  + l)*const2) 
if(big.lt.dabs(conc(8,j-l)*vzps/(dhb+dhf))) 

1 big  = dabs(conc(8,j-l)*vzps/(dhb+dhf)) 
if(big.lt.dabs(Db(8)/RTF/dhb/(dhb  + dhf)*phi(j  + l)*conc(8,j))) 

1 big  = dabs(Db(8)/RTF/dhb/(dhb  + dhf)*phi(j  + l)*conc(8,j)) 

if(dabs(g(6)).le.big*errmax)  g(6)  = 0. 


H+  , OH-  , and  Cu+  + convective  diffusion 
del.N5-del.N6  + 3*del.N9=0 
new,  does  not  use  squig 


a(7,5)  = -dfb*z(5)*Db(5)/dhf/2./RTF*(phi(j)-phi(j-l)) 
1 +dfb*Db(5)/dhf 

b(7,5)  = z(5)*Db(5)/dhb/2./RTF*(phi(j  + l)-phi(j)) 

1 -dfb*z(5)*Db(5)/dhf/2./RTF*(phi(j)-phi(j-l)) 

1 -Db(5)/dhb-dfb*Db(5)/dhf-vzpoh/2. 

d(7,5)  = z(5)*Db(5)/dhb/2./RTF*(phi(j  + l)-phi(j)) 

1 +Db(5)/dhb-vzpoh/2. 
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a(7,6)  = -(-dfb*z(6)  *Db(6)/ dhf/2 . /RTF*(phi(j)-phi(j  - 1)) 

1 +dfb*Db(6)/dhf) 

b(7,6)  = -(z(6)*Db(6)/dhb/2./RTF*(phi(j  + l)-phi(j)) 

1 -dfb*z(6)*Db(6)/dhf/2./RTF*(phi(j)-phi(j-l)) 

1 -Db(6)/dhb-dfb*Db(6)/dhf-vzpoh/2.) 

d(7,6)  = -(z(6)*Db(6)/dhb/2./RTF*(phiG  + l)-phi(j)) 

1 +Db(6)/dhb-vzpoh/2.) 

a(7,9)  = 3.*(-dfb*z(9)*Db(9)/dhf/2./RTF*(phi(j)-phi(j-l)) 
1 +dfb*Db(9)/dhf) 

b(7,9)  = 3.*(z(9)*Db(9)/dhb/2./RTF*(phi(j  + l)-phi(j)) 

1 -dfb*z(9)*Db(9)/dhf/2./RTF*(phi(j)-phi(j-l)) 

1 -Db(9)  / dhb-dfb  *Db(9)/dh  f-vzpoh/2 . ) 

d(7,9)  = 3.*(z(9)*Db(9)/dhb/2./RTF*(phi(j  + l)-phi(j)) 

1 + Db(9)/ dhb-vzpoh/2 . ) 


a(7,n-l)  = dfb  *z(5)  *Db(5)/  dhf/2 . /RTF  *(conc(5  ,j ) 4-  conc(5  j - 1 )) 
1 -(dfb*z(6)*Db(6)/dhf/2./RTF*(conc(6,j)  + conc(6,j-l))) 

1 + 3.*(dfb*z(9)*Db(9)/dhf/2./RTF*(coiic(9,j)  + conc(9,j-l))) 

b(7,n-l)  = -z(5)  *Db(5)/dhb/2 . /RTF*(conc(5  ,j ) + conc(5  ,j  + 1)) 

1 -dfb  *z(5)  *Db(5)/dhf/2 . /RTF  *(conc(5  ,j ) + conc(5  ,j  - 1)) 

1 -(-z(6)*Db(6)/dhb/2./RTF*(coiic(6,j)  + conc(6,j  + 1)) 

1 -dfb  *z(6)  *Db(6)/dhf/2 . /RTF  *(conc(6  ,j ) + conc(6  ,j  - 1))) 

1 + 3 . *(-z(9)*Db(9)/dhb/2.  /RTF*(conc(9  ,j)  + conc(9,j  + 1)) 

1 -dfb  *z(9)  *Db(9)/dhf/2 . /RTF  *(conc(9  ,j ) + conc(9  ,j  - 1 ))) 

d(7,n-l)  = z(5)*Db(5)/dhb/2./RTF*(conc(5,j)  + conc(5,j  + l)) 

1 -(z(6)*Db(6)/dhb/2./RTF*(conc(6,j)  + conc(6,j  + 1))) 

1 + 3 . *(z(9)  *Db(9)/dhb/2 . /RTF  *(conc(9  ,j ) + conc(9,j  + 1))) 


tdiff5  = -Db(5)/dhb+(conc(5,j  + l)-conc(5,j)) 

1 -I-  dfb*Db(5)/dhf*(conc(5,j)-conc(5,j-l)) 

tmig5  = -z(5)*Db(5)/dhb/RTF/2. 

1 *(conc(5,j)  + conc(5,j  + l))*(phi(j  + l)-phi(j)) 

1 + dfb*z(5)  *Db(5)/dhf/RTF  /2 . 

1 *(conc(5  ,j ) + conc(5  ,j  - 1 ))  *(phi(j  )-phi(j  - 1 )) 

tconv5  = vzpoh/2.*(conc(5,j)+conc(5,j  + 1)) 


tdiff6  = -Db(6)/dhb*(conc(6,j  + l)-conc(6,j)) 

1 -I-  dfb*Db(6)/dhf*(conc(6  ,j)-conc(6  ,j  - 1 )) 

tmig6  = -z(6)  *Db(6)/dhb/RTF  12. 

1 *(conc(6  ,j ) + conc(6  ,j  + l))*(phi(j  + l)-phi(j)) 

1 +dfb*z(6)*Db(6)/dlif/RTF/2. 

1 *(conc(6  ,j ) + conc(6  ,j  - 1 ))  *(phi  (j  )-phi(j  - 1 )) 

tconv6  = vzpoh/2.*(conc(6,j)+conc(6,j  + 1)) 


tdiff9  = -Db(9)/dhb*(conc(9j  + l)-conc(9,j)) 

1 + dfb*Db(9)/ dhf*(conc(9  ,j)-conc(9  ,j- 1)) 

tmig9  = -z(9)*Db(9)/dhb/RTF/2. 

1 *(conc(9,j) +conc(9,j  + l))*(phi(j  + l)-phi(j)) 


1 + dfb*z(9)*Db(9)/dhf/RTF/2. 

1 *(conc(9,j)  + conc(9,j-l))*(phi(j)-phi(j-l)) 

tconv9  = vzpoh/2.*(conc(9,j)  + conc(9,j  + 1)) 

g(7)  = tdiff5+tconv5  + tnug5-(tdiff6  + tconv6  + tmig6) 

1 +3  *(tdiff9  + tconv9  + tmig9) 


big  = dabs(Db(5)/dhb*conc(5,j  + 1)) 
if(big.lt.dabs(dfb*Db(5)/dhf|,conc(5,j))) 

1 big  = dabs(dfb*Db(5)/dhf*conc(5,j)) 
if(big.lt.dabs(z(5)*Db(5)/dhb/2./RTF*conc(5,j)*phi(j))) 

1 big  = dabs(z(5)  *Db(5)  / dhb/2 . /RTF  *conc(5  ,j ) *phi(j )) 
if(big.lt.dabs(dfb*z(5)*Db(5)/dhf/2./RTF*conc(5,j)*phi(j))) 

1 big  = dabs(dfb*z(5)  *Db(5)/dhf/2 . /RTF  *conc(5  ,j ) *phi(j )) 
if(big.lt.dabs(vzpoh/2.  *conc(5,j))) 

1 big  = dabs(vzpoh/2.*conc(5,j)) 

if(big.lt.dabs(Db(6)/dhb*conc(6,j  + 1))) 

1 big  = dabs(Db(6)/dhb*conc(6,j  + 1)) 
if(big . It . dabs(dfb  *Db(6)/dhf*conc(6  ,j ))) 

1 big  = dabs(dfb*Db(6)/dhf*conc(6,j)) 
if(big.lt.dabs(z(6)*Db(6)/dhb/2./RTF*conc(6,j)*phi(j))) 

1 big  = dabs(z(6)*Db(6)/dhb/2./RTF*conc(6,j)*phi(j)) 
if(big.lt.dabs(dfb*z(6)*Db(6)/dhf/2./RTF*conc(6,j)*phi(j))) 

1 big  = dabs(dfb*z(6)  *Db(6)/ dhf/2 . /RTF  *conc(6  ,j ) *phi(j )) 
if(big.lt.dabs(vzpoh/2.*conc(6,j))) 

1 big  = dabs(vzpoh/2.*conc(6,j)) 


if(big.lt.dabs(Db(9)/dhb*conc(9,j  + 1))) 

1 big  = dabs(Db(9)/dhb*conc(9,j  + 1)) 
if(big . It . dabs(dfb  *Db(9)/dhf*conc(9  ,j ))) 

1 big  = dabs(dfb*Db(9)/dhf*conc(9,j)) 
if(big.lt.dabs(z(9)*Db(9)/dhb/2./RTF*conc(9,j)*phi(j))) 

1 big  = dabs(z(9)*Db(9)/dhb/2./RTF*conc(9,j)*phi(j)) 
if(big.lt.dabs(dfb*z(9)*Db(9)/dhf/2./RTF*coiic(9,j)*phi(j))) 

1 big  = dabs(dfb*z(9)*Db(9)/dhf/2./RTF*conc(9,j)*phi(j)) 
if(big.lt.dabs(vzpoh/2.  *conc(9,j))) 

1 big  = dabs(vzpoh/2.  *conc(9,j)) 


if(dabs(g(7)).le.big*errmax)  g(7)  = 0. 


del.N(7)=0 


a(8,7)  = dfb  *Db(7)  *const  1 
1 +vzps/(dhb  + dhf) 

b(8,7)  = -Db(7)*const2-dfb*Db(7)*constl 
1 -2.*(vzpoh-vzmoh)/(dhb  + dhf) 


d(8,7)  = Db(7)*const2 

1 -vzps/(dhb +dhf)-squig*2.  *(vzpoh-vzmoh)/(dhb  4-  dhf) 

tdiff  = Db(7)*(conc(7,j  + l)-conc(7,j))*const2 
1 -dfb  *Db(7)  *(conc(7  ,j  )-conc(7  ,j  - 1 ))  *const  1 

tconv  = -(conc(7,j  4-  l)-conc(7,j-l))*vzps/(dhb4-dhf) 

1 -(conc(7,j)  + squig*conc(7,j  + l)) 

1 *2.*(vzpoh-vzmoh)/(dhb  + dhf) 

g(8)  = -tdiff-tconv 

big = dabs(Db(7) *conc(7,j  + l)*const2) 
if(big.  It . dabs(conc(7  ,j  - l)*vzps/ (dhb  + dhf))) 

1 big  = dabs(conc(7  ,j- l)*vzps/(dhb  + dhf)) 

if(dabs(g(8)).le.big*ernnax)  g(8)  = 0. 


Vcu  gradient  = 0.0 


a(9,n)  = 1. 
b(9,n)  = -1. 
g(9)  = Vcu(j)-Vcu(j-1) 
big = dabs(  V cu(j )) 

if(dabs(g(9)).le.big*errmax)  g(9)  = 0. 


del.N(9)  + del.N(10)=0 
del.N(Cu++)  + del.N(HCu02-)  = 0 


a(ll,9)  = dfb*Db(9)*constl 
1 +vzps/(dhb  + dhf) 

1 -z(9)*dfb*Db(9)/RTF  / dhf/ (dhb  + dhf)*(phi(j)-phi(j-l)) 

b(ll,9)  = -Db(9)*const2-dfb*Db(9)*constl 
1 -2.*(vzpoh-vzmoh)/(dhb  + dhf) 

1 + z(9)  *Db(9)/RTF/dhb/ (dhb + dhf)*(phi(j  + l)-phi(j)) 

1 -dfb*z(9)*Db(9)/RTF/dhf/(dhb  + dhf)*(phi(j)-phi(j-l)) 
d(ll,9)  = Db(9)*const2 

1 -vzps/ (dhb + dhf)-squig*2.  *(vzpoh-vzmoh)/ (dhb  + dhf) 

1 +z(9)*Db(9)/RTF/dhb/(dhb  + dhf)*(phi(j  + l)-phi(j)) 
a(ll,10)  = dfb  *Db(  1 0)  *const  1 
1 +vzps/(dhb  + dhf) 

1 -z(10)*dfb*Db(10)/RTF/dhf/(dhb  + dhf)*(phi(j)-phi(j-l)) 
b(ll,10)  = -Db(10)*const2-dfb*Db(  1 0)*const  1 
1 -2.  *(vzpoh-vzmoh)/(dhb  + dhf) 

1 + z(  10)  *Db(  10)/RTF /dhb/ (dhb  + dhf)*(phi(j  + l)-phi(j)) 

1 -dfb*z(  10)  *Db(  1 0)/RTF /dhf/ (dhb + dhf)  *(phi(j  )-phi(j  - 1 )) 

d(ll,10)  = Db(10)*const2 

1 -vzps/(dhb  + dhf)-squig*2.  *(vzpoh-vzmoh)/(dhb + dhf) 

1 + z(10)*Db(10)/RTF/dhb/(dhb  + dhf)*(phi(j  + l)-phi(j)) 
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a(ll,n-l)  = + z(9)*dfb*Db(9)/RTF/dhf/(dhb  + dhf)*(conc(9,j) 

1 + conc(9,j-l)) 

1 + z(10)*dfb*Db(10)/RTF/dhf/(dhb+dhf)*(conc(10,j) 

1 +conc(10,j-l)) 

b(ll,n-l)  = -z(9)*dfb*Db(9) /RTF /dhf/(dhb  + dhf)  *(conc(9  j ) 

1 +conc(9,j-l)) 

1 -z(9)*Db(9)/RTF  /dhb/ (dhb + dhf)*(conc(9  ,j) 

1 +conc(9,j  + 1)) 

1 -z(10)*dfb*Db(10)/RTF/dhf/(dhb+dhf)*(conc(10,j) 

1 +conc(10,j-l)) 

1 -z(  1 0)  *Db(  1 0)/RTF /dhb/ (dhb + dhf)  *(conc(  1 0 ,j ) 

1 +conc(10,j  + l)) 

d(ll,n-l)  = z(9)  *Db(9)/RTF  / dhb/ (dhb + dhf)  *(conc(9  ,j ) 

1 +conc(9,j  + l)) 

1 +z(10)*Db(10)/RTF/dhb/(dhb +dhf)*(conc(10,j) 

1 +conc(10,j  + l)) 

tdiff9  = Db(9)*(conc(9,j  + l)-conc(9,j))*const2 
1 -dfb*Db(9)  *(conc(9  ,j  )-conc(9  ,j  - 1 ))  *const  1 

tconv9  = -(conc(9,j  + l)-conc(9,j-l))*vzps/(dhb  + dhf) 

1 -(conc(9,j)  + squig*conc(9,j  + 1)) 

1 *2.  *(vzpoh-vzmoh)/(dhb  + dhf) 

tmig9  = z(9)*Db(9)/RTF/dhb/ (dhb + dhf)*(conc(9,j) 

1 + conc(9,j  + l))*(phi(j  + l)-phi(j)) 

1 -z(9)*dfb*Db(9)/RTF/dhf/(dhb+dhf)*(conc(9,j) 

1 + conc(9  ,j  - l))*(phi(j  )-phi(j- 1)) 

tdifflO  = Db(10)*(conc(10,j  + l)-conc(10,j))*const2 
1 -dfb  *Db(  1 0)  *(conc(  1 0 ,j  )-conc(  1 0 ,j  - 1 ))  *const  1 

tconvlO  = -(conc(10,j  + l)-conc(10,j-l))*vzps/(dhb +dhf) 

1 -(conc(10,j)  + squig*conc(10,j  + 1)) 

1 *2.*(vzpoh-vzmoh)/(dhb+dhf) 

tmiglO  = z(  1 0)  *Db(  1 0)  /RTF /dhb/ (dhb  + dh  f)  *(conc(  1 0 , j ) 

1 + conc(10,j  + l))*(phi(j  + l)-phi(j)) 

1 -z(  1 0)  *dfb  *Db(  1 0)/RTF /dhf/ (dhb  + dhf)*(conc(10,j) 

1 +conc(10,j-l))*(phi(j)-phi(j-l)) 

g(ll)  = -tdiff9-tconv9-tmig9-tdifflO-tconvlO-tmiglO 

big=dabs(Db(10)*conc(10,j  + l)*cxjnst2) 
if(big.lt.dabs(conc(10,j-l)*vzps/(dhb  + dhf))) 

1 big  = dabs(conc(10,j-l)*vzps/(dhb  + dhf)) 
if(big.lt.dabs(Db(10)/RTF/dhb/(dhb  + dhf)*phi(j  + l)*conc(10,j))) 

1 big  = dabs(Db(10)/RTF/dhb/(dhb+dhf)*phi(j  + l)*conc(10,j)) 

if(big.lt.dabs(Db(9)‘|,conc(9,j  + l)*const2)) 

1 big  = dabs(Db(9)*conc(9  j + l)*const2) 
if(big.  It . dabs(conc(9  ,j  - 1)  '|,vzps/(dhb  + dhf))) 

1 big  = dabs(conc(9,j-l)*vzps/(dhb+dhf)) 
if(big.lt.dabs(Db(9)/RTF/dhb/(dhb  + dhf)*phi(j  + l)*conc(9,j))) 

1 big  = dabs(Db(9)/RTF/dhb/(dhb  + dhf)*phi(j  + l)*conc(9,j)) 

if(dabs(g(ll)).le.big*errmax)  g(ll)  = 0. 


Cu+  + + H20  = HCu02-  + 3H+ 
Equilibrium  given  by  Eq4 


b(12,5)  = -3*conc(10,j)*conc(5,j)**2 

b(12,9)  = Eq4 

b(12,10)  = -conc(5,j)**3 

g(12)  = conc(10,j)*conc(5,j)**3-Eq4*conc(9,j) 

big=conc(10,j)*conc(5,j)**3 

if(big.lt.Eq4*conc(9,j))  big  = Eq4*conc(9 ,j) 

if(dabs(g(12)).le.big*errmax)  g(12)  = 0. 

b(12,5)  = -3./conc(5,j) 
b(12,9)  = l./conc(9,j) 
b(12,10)  = -l./conc(10,j) 

g(12)  = dlog(conc(10,j)*conc(5,j)**3/conc(9,j)/Eq4) 

if(dabs(g(12)).le.errmax)  g(12)  = 0. 


itest=0 


DO  57  i=l,n 
if  (g(i).ne.O.O)  itest=  1 
57  continue 


if  (itest.eq.l  .and.  iter.eq.itmax)  print*, ’j  = ’,j,’g==’,g 


return 

end 


subroutine  ssbulk(j) 

♦ * * * * * * * * * * * * * * * * * * * * * **  * * >1*  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* * 

********  * ******  * i|cj|c)|u|c  afcafc  ***  * **  * *********  * ****  * **  * * * *****  * * * sfe  * sfs  * * 

implicit  double  precision(a-h,o-z) 

COMMON/BA/  N,NJ,A(12,12),B(12,12),C(12,1001),D(12,25),G(12) 

1 ,X(12, 12),  Y(12, 12) 

common/var/conc(  1 0 , 1 00 1 ) , phi(  1 00 1 ) 

1 ,Vcu(1001) 

common/par/dfb,Db(10),z(10),delf,delb,dhf,dhb,rpm 

1 ,rkl,rk2,rko2,Eql,Eq2,Eq3,Eq4,betaa,betac,area 

2 , pH, c2sat,vz, alpha, Ahfc,Vm,ij 
common/ const/ errmax , RTF , pi , F arad , i ter , i tmax 
common/  curr/  current 


ELECTRONEUTRALITY 


DO  46  index  =l,n-2 
b(l, index)  = -z(index) 
g(l)  = z(index)*conc(index,j)  + g(l) 


46  continue 


big  = conc(l,j) 

DO  47  index  = 2,n-2 

if(big.lt.conc(index,j))  big  = conc(index,j) 
47  continue 

if(dabs(g(l)).le.big*errmax)  g(l)  = 0. 


water  equilibrium 

b(2,5)  = -conc(6,j) 

b(2,6)  = -conc(5,j) 

g(2)  = conc(5  ,j ) *conc(6  ,j)- 1 . e-20 

big = conc(5  ,j  ) *conc(6 , j ) 

if(big.lt.  l.e-20)  big  = l.e-20 

if(dabs(g(2)).le.big*errmax)  g(2)  = 0. 


del.N(3)  = 0 


a(3,3)  = -1.  +z(3)/RTF*(phi(j  + l)-phi(j-l))/4. 
b(3,3)  = 2.-z(3)/RTF*(phi(j-l)-2*phi(j)  +phi(j  + 1)) 
d(3,3)  = -l.-z(3)/RTF*(phi(j  + l)-phi(j-l))/4. 
a(3,n-l)  = -z(3)/RTF*conc(3  ,j) 

1 + z(3)/RTF*(conc(3  ,j  + l)-conc(3,j-l))/4. 

b(3,n-l)  = 2.  *z(3)/RTF*conc(3  ,j) 
d(3,n-l)  = -z(3)/RTF*conc(3,j) 

1 -z(3)/RTF*(conc(3  ,j  + l)-conc(3,j-l))/4. 

terml  = conc(3,j-l)-2*conc(3,j)  + conc(3,j  + l) 
term2  = z(3)/RTF*conc(3,j)*(phi(j-l)-2*phi(j)  +phi(j  + 1)) 
term3  = z(3)/RTF*(conc(3,j  + l)-conc(3,j-l)) 

1 *(phi(j  + l)-phi(j-l))/4. 

g(3)  = term  1 + term2  + term3 

big = dabs(conc(3  ,j  - 1)) 

if(big.  It.  dabs(z(3)/RTF  *conc(3  ,j ) *(phi(j  - 1)))) 

1 big = dabs(z(3)/RTF*conc(3  ,j)  *(phi(j  - 1))) 

if(dabs(g(3)).le.big*errmax)  g(3)  = 0. 


del.i=0 

have  put  in  Db(i) 
don’t  need  vz  (JNp221) 

DO  406  i=l,n-2 
a(3,i)  = -l.*Db(i)*z(i) 

1 +Db(i)*z(i)**2/RTF*(phi(j  + l)-phi(j-l))/4. 

b(3,i)  = 2.*Db(i)*z(i) 


1 -Db(i)*z(i)**2/RTF*(phi(j-l)-2*phi(j)+phi(j  + 1)) 

d(3,i)  = -l.*Db(i)*z(i) 

1 -Db(i)  *z(i)  * *2/RTF  *(phi(j  + l)-phi(j-l))/4. 

406  continue 


DO  405  i=l,n-2 

a(3,n-l)  = a(3,n-l)-Db(i)*z(i)**2/RTF*conc(i,j) 

1 +Db(i)*z(i)**2/RTF*(conc(i,j  + l)-conc(i,j-l))/4. 

405  continue 


DO  404  i=l,n-2 

b(3,n-l)  = b(3,n-l)  + 2.*Db(i)*z(i)**2/RTF*conc(i,j) 
404  continue 


DO  403  i=l,n-2 

d(3,n-l)  = d(3,n-l)  -Db(i)*z(i)**2/RTF*conc(i,j) 

1 -Db(i)*z(i)**2/RTF*(conc(i,j  + l)-conc(i,j-l))/4. 

403  continue 


tdiff  = 0.0 
DO  402  i=  l,n-2 
tdiff  = tdiff 

1 + Db(i)*z(i)*(conc(i,j-l)-2*conc(i,j)  + conc(i,j  + 1)) 

402  continue 


tmig  = 0.0 
DO  401  i=l,n-2 
tmig  = tmig  + Db(i) 

1 *(z(i)**2/RTF*conc(i,j)*(phi(j-l)-2*phi(j)+phi(j  + 1)) 
1 +z(i)**2/RTF/4.*(conc(i,j  4-  l)-conc(ij-l)) 

1 *(phi(j  + l)-phi(j-l))) 

401  continue 


g(3)  = tdiff  + tmig 

big = dabs(Db(  l)*conc(l  ,j)) 

DO  407  i=l,n-3 

if(big.lt.dabs(Db(i)*conc(i,j)))  big=dabs(Db(i)*conc(i,j)) 
407  continue 

if(dabs(g(3)).]e.big*errmax)  g(3)  = 0. 


Cu+  + 2 Cl-  = CuC12- 
Equilibrium  given  by  Eql 

b(4,l)  = -Eql  *conc(4  ,j ) **2 
b(4,2)  = 1. 

b(4,4)  = -2.*Eql*conc(l,j)*conc(4,j) 

g(4)  = Eq  1 *conc(  1 ,j)*conc(4,j)**2-conc(2,j) 

big=conc(2,j) 


if(big.lt.  dabs(Eq  1 *conc(  1 ,j)*conc(4,j)**2)) 

1 big = dabs(Eql  *conc(l  ,j)*conc(4,j)**2) 

if(dabs(g(4)).le.big*errmax)  g(4)  = 0. 


b(4,l)  = -l./conc(l,j) 
b(4,2)  = l./conc(2,j) 
b(4,4)  = -2./conc(4,j) 

g(4)  = dlog(Eql*conc(l,j)*conc(4,j)**2/conc(2,j)) 

if(dabs(g(4)).le.errmax)  g(4)  = 0. 


del.N(Cu + ) + del.N(CuC12-)  + del.N(CuC132-) 


tempi  = -l.+z(l)/RTF*(phi(j  + l)-phi(j-l))/4. 

1 -vz/Db(l)/2.  *dhb 

a(5,l)  = Db(l)*templ 

tempi  = 2.-z(l)/RTF*(phi(j-l)-2*phi(j)  +phi(j  + 1)) 

b(5,l)  — Db(l)*templ 

tempi  = -l.-z(l)/RTF*(phi(j  + l)-phi(j-l))/4. 

1 +vz/Db(l)/2.*dhb 

d(5,l)  = Db(l)*templ 

temp2  = -l.+z(2)/RTF*(phi(j  + l)-phi(j-l))/4. 

1 -vz/Db(2)/2.  *dhb 

a(5,2)  = Db(2)*temp2 

temp2  = 2.-z(2)/RTF*(phi(j-l)-2*phi(j) +phi(j  + 1)) 

b(5,2)  = Db(2)*temp2 

temp2  = -l.-z(2)/RTF*(phi(j  + l)-phi(j-l))/4. 

1 + vz/Db(2)/2 . *dhb 

d(5,2)  = Db(2)*temp2 
temp  8 = -1.  +z(8)/RTF*(phi(j  + l)-phi(j-l))/4. 

1 -vz/Db(8)/2.  *dhb 

a(5,8)  = Db(8)*temp8 

temp  8 = 2.-z(8)/RTF*(phi(j-l)-2*phi(j)  +phi(j  + 1)) 

b(5,8)  = Db(8)*temp8 

temp  8 = -l.-z(8)/RTF*(phi(j  + l)-phi(j-l))/4. 

1 + vz/Db(8)/2 . *dhb 

d(5,8)  = Db(8)*temp8 

tempi  = -z(l)/RTF*conc(l,j) 

1 + z(  1 )/RTF  *(conc(  1 ,j  + l)-conc(l,j-l))/4. 

temp2  = -z(2)/RTF*conc(2,j) 

1 + z(2)/RTF  *(conc(2  ,j  + l)-conc(2,j-l))/4. 

temp8  = -z(8)/RTF*conc(8,j) 

1 + z(8)/RTF*(conc(8  ,j  + l)-conc(8,j-l))/4. 

a(5,n-l)  = Db(  1 ) +temp  1 + Db(2)  *temp2  + Db(8)  ’•'tempS 

tempi  = 2.*z(l)/RTF*conc(l,j) 
temp2  = 2.*z(2)/RTF*conc(2,j) 
temp8  = 2.*z(8)/RTF*conc(8,j) 
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b(5,n-l)  = Db(l)*templ+Db(2)*temp2+Db(8)*temp8 

tempi  = -z(l)/RTF*conc(l,j) 

1 -z(l)/RTF*(conc(l,j  + l)-conc(l,j-l))/4. 

temp2  = -z(2)/RTF*conc(2,j) 

1 -z(2)/RTF*(conc(2,j  + l)-conc(2,j-l))/4. 

temp8  = -z(8)/RTF*conc(8,j) 

1 -z(8)/RTF*(conc(8,j  + l)-conc(8,j-l))/4. 

d(5,n-l)  = Db(l)*templ  4-  Db(2)*temp2  + Db(8)*temp8 

tdiffl  = Db(l)*(conc(lJ-l)-2*conc(l,j)  + conc(l,j  + l)) 
tmigl  = Db(l)*z(l)/RTF*conc(l  ,j) 

1 *(phi(j-l)-2*phi(j)  +phi(j  + 1)) 

1 +Db(l)*z(l)/RTF*(conc(l,j  + l)-conc(lj-l)) 

1 *(phi(j  + l)-phi(j-l))/4. 

tconvl  = -vz*(conc(l,j  + l)-conc(l,j-l))/2.*dhb 

tdiff2  = Db(2)*(conc(2,j-l)-2*conc(2,j)+conc(2,j  + l)) 
tmig2  = Db(2)*z(2)/RTF*conc(2,j) 

1 *^)hi(j-l)-2*phi(j)+phi(j  + l)) 

1 + Db(2)  *z(2)/RTF  *(conc(2  ,j  + l)-conc(2,j-l)) 

1 *(phi(j  + l)-phi(j-l))/4. 

tconv2  = -vz*(conc(2,j  + l)-conc(2,j-l))/2.*dhb 

tdiffH  = Db(8)*(conc(8,j-l)-2*conc(8,j)+conc(8,j  + l)) 
tmig8  = Db(8)*z(8)/RTF*conc(8,j) 

1 *(phi(j-l)-2*phi(j)+phi(j  + l)) 

1 +Db(8)*z(8)/RTF*(conc(8  j + l)-conc(8,j-l)) 

1 *(phi(j  + l)-phi(j-l))/4. 

tconv8  = -vz*(conc(8,j  + l)-conc(8,j-l))/2.*dhb 

g(5)  = tdiffl  +tmigl+  tconvl 

1 +tdiff2+tmig2+tconv2 

1 + tdiff8  + tmig8  + tconv8 

big = dabs(Db(  l)*conc(  1 ,j  - 1)) 

i f(big . It.  dabs(Db(  1 ) *2*conc(  1 ,j)))big = dabs(Db(  1 ) *2  *conc(  1 ,j )) 
if(big.lt.dabs(Db(l)*conc(l,j  + l)))big = dabs(Db(  1 )*conc(  1 ,j  + 1)) 
i f(big . It . dabs(Db(2)  *2*conc(2  ,j)))big = dabs(Db(2)  *2  *conc(2  ,j )) 
if(big.lt.dabs(Db(2)*conc(2,j  + l)))big=dabs(Db(2)*conc(2,j  + 1)) 
if(big.lt.dabs(Db(2)*conc(2,j-l)))big=dabs(Db(2)*conc(2,j-l)) 
if(big . It.  dabs(Db(8)*2*conc(8  ,j)))big  = dabs(Db(8)*2*conc(8,j)) 
if(big.lt.dabs(Db(8)*conc(8,j  + l)))big=dabs(Db(8)*conc(8,j  + 1)) 
if(big.lt.dabs(Db(8)*conc(8,j-l)))big  = dabs(Db(8)*conc(8,j-l)) 

i f(big . It . dabs(Db(  1 ) *z(  1 )/RTF  *conc(  1 ,j  + l)*phi(j  + 1)/4.)) 

1 big = dabs(Db(  1)  *z(  1 )/RTF  *conc(  1 ,j  + l)*phi(j  + 1)/4.) 

if(big.lt.dabs(Db(2)*z(2)/RTF!(’conc(2)j  + l)*phi(j  + 1)/4.» 

1 big = dabs(Db(2)*z(2)/RTF*conc(2,j  + l)*phi(j  + 1)/4.) 

if(big.lt.dabs(Db(8)*z(8)/RTF*conc(8,j  + l)*phi(j  + 1)/4.)) 

1 big  = dabs(Db(8)*z(8)/RTF*conc(8,j  + l)*^phi(j  + 1)/4.) 


if(big.lt.dabs(vz*conc(2,j  + l)/2.*dhb)) 

1 big = dabs(vz*conc(2,j  + 1)/2.  *dhb) 

if(big.lt.dabs(vz*conc(l  j + l)/2.*dhb)) 

1 big = dabs(vz*conc(  1 ,j  + 1)/2.  *dhb) 

if(big.lt.dabs(vz*conc(8,j  + l)/2.*dhb)) 

1 big=dabs(vz*conc(8,j  + l)/2.*dhb) 

if(dabs(g(5)).le.big*errmax)  g(5)  = 0. 


del.N(Cl-)  + 2del.N(CuC12-)  + 3del.N(CuC132-) 


temp4  = -l.+z(4)/RTF*(phi(j  + l)-phi(j-l))/4. 

1 -vz/Db(4)/2.  *dhb 

a(6,4)  = Db(4)*temp4 

temp4  = 2.-z(4)/RTF*(phi(j-l)-2*phi(j)  +phi(j  + 1)) 

b(6,4)  = Db(4)*temp4 

temp4  = -l.-z(4)/RTF*(phi(j  + l)-phi(j-l))/4. 

1 + vz/Db(4)/2.  *dhb 

d(6,4)  = Db(4)*temp4 

temp2  = 2*(-l.  +z(2)/RTF*(phi(j  + l)-phi(j-l))/4. 

1 -vz/Db(2)/2.  *dhb) 

a(6,2)  = Db(2)*temp2 

temp2  = 2*(2.-z(2)/RTF*(phi(j-l)-2+phi(j)  + phi(j  + 1))) 

b(6,2)  = Db(2)*temp2 

temp2  = 2*(-l.-z(2)/RTF*(phi(j  + l)-phi(j-l))/4. 

1 +vz/Db(2)/2.*dhb) 

d(6,2)  = Db(2)*temp2 

temp  8 = 3*(-l.  +z(8)/RTF*(phi(j  + l)-phi(j-l))/4. 

1 -vz/Db(8)/2.  *dhb) 

a(6,8)  = Db(8)*temp8 

temp  8 = 3*(2.-z(8)/RTF*(phi(j-l)-2*phi(j)+phi(j  + 1))) 

b(6,8)  = Db(8)*temp8 

temp  8 = 3*(-l.-z(8)/RTF*(phi(j  + l)-phi(j-l))/4. 

1 + vz/Db(  8)/2 . *dhb) 

d(6,8)  = Db(8)*temp8 
temp4  = -z(4)/RTF*conc(4,j) 

1 + z(4)  /RTF  *(conc(4  j + l)-conc(4,j-l))/4. 

temp2  = 2*(-z(2)/RTF*conc(2,j) 

1 + z(2)/RTF  *(conc(2  ,j  + l)-conc(2,j-l))/4.) 

temp8  = 3*(-z(8)/RTF*conc(8,j) 

1 + z(  8)  /RTF  *(conc(  8 ,j  + l)-conc(8,j-l))/4.) 

a(6,n-l)  = Db(4)*temp4+Db(2)*temp2+Db(8)*temp8 
temp4  = 2.*z(4)/RTF*conc(4,j) 

temp2  = 2.  *2.  *z(2)/RTF*conc(2,j) 
temp8  = 3.*2.*z(8)/RTF*conc(8,j) 
b(6,n-l)  = Db(4)*temp4  + Db(2)*temp2  + Db(8)*temp8 
temp4  = -z(4) /RTF  *conc(4  ,j ) 

1 -z(4)/RTF  *(conc(4  ,j  + l)-conc(4,j-l))/4. 

temp2  = 2 *(-z(2)  /RTF  *conc(2  ,j  ) 

1 -z(2)/RTF*(conc(2,j  + l)-conc(2,j-l))/4.) 


temp8  = 3*(-z(8)/RTF*conc(8,j) 

1 -z(8)/RTF*(conc(8,j  + l)-conc(8,j-l))/4.) 

d(6,n-l)  = Db(4)*temp4  4-  Db(2)*temp2  + Db(8)*temp8 

g(6)  = Db(4)*(conc(4,j-l)-2*conc(4,j)  4-  conc(4,j  4- 1) 

1 + z(4)/RTF*conc(4,j)*(phi(j-l)-2*phi(j)  +phi(j  + 1)) 

1 +z(4)/RTF*(conc(4,j  + l)-conc(4,j-l))*(phi(j  4-  l)-phi(j-l))/4. 

1 -vz/Db(4)  *(conc(4  ,j  + l)-conc(4j-l))/2.  *dhb) 

1 +2*Db(2)*(conc(2,j-l)-2*conc(2,j)+conc(2,j  + 1) 

1 +z(2)/RTF*conc(2,j)*(phi(j-l)-2*phi(j) +phi(j  + 1)) 

1 +z(2)/RTF*(conc(2,j  + 1 )-conc(2  ,j  - 1 ))  *(phi  (j  4-  l)-phi(j-l))/4. 

1 -vz/Db(2)*(conc(2,j  + l)-conc(2,j-l))/2.  *dhb) 

1 4-3*Db(8)*(conc(8,j-l)-2*conc(8,j)  4-conc(8,j  4- 1) 

1 +z(8)/RTF*conc(8,j)*(phi(j-l)-2*phi(j)  +phi(j  + 1)) 

1 + z(8)/RTF*(conc(8,j  + l)-conc(8,j-l))*(phi(j  + l)-phi(j-l))/4. 

1 -vz/Db(8)*(conc(8,j  4-  l)-conc(8,j-l))/2.*dhb) 

big  = dabs(Db(4)*conc(4,j  -1)) 

if(big.lt.dabs(Db(4)*conc(4,j  4-  l)))big=dabs(Db(4)*conc(4,j  + 1)) 
if(big.lt.dabs(Db(2)*2*conc(2,j)))big=dabs(Db(2)*2*conc(2,j)) 
if(big.lt.dabs(Db(2)*conc(2,j  + l)))big=dabs(Db(2)*conc(2,j  4- 1)) 
if(big.lt.dabs(Db(2)*conc(2,j-l)))big=dabs(Db(2)*conc(2,j-l)) 
if(big.lt.dabs(Db(8)*2*conc(8,j)))big=dabs(Db(8)*2*conc(8,j)) 
if(big.lt.dabs(Db(8)*conc(8,j  + l)))big=dabs(Db(8)’l‘conc(8,j  + 1)) 
if(big.lt.dabs(Db(8)*conc(8  ,j-l)))big=dabs(Db(8)*conc(8,j-l)) 

if(big.  It.  dabs(Db(4)  *z(4)/RTF*conc(4  ,j  + l)*phi(j  4- 1)/4.)) 

1 big = dabs(Db(4)*z(4)/RTF*conc(4,j  + l)*phi(j  + 1)/4.) 
if(big.lt.dabs(Db(2)*z(2)/RTF*conc(2  j + l)*phi(j  + 1)/4.)) 

1 big = dabs(Db(2)*z(2)/RTF*conc(2,j  + l)*phi(j  + 1)/4. ) 
if(big.lt.dabs(Db(8)*z(8)/RTF*conc(8,j  4-  l)*phi(j  + 1)/4.)) 

1 big = dabs(Db(8)*z(8)/RTF*conc(8  ,j  4-  l)*phi(j  + 1)/4.) 

if(big.lt.dabs(vz*conc(2,j  + l)/2.*dhb)) 

1 big = dabs(vz*conc(2,j  + 1)/2.  *dhb) 
if(big.lt.dabs(vz*conc(4,j  + l)/2.*dhb)) 

1 big  = dabs(vz*conc(4  ,j  + 1)/2.  *dhb) 

if(big.lt.dabs(vz*conc(8,j  4-  l)/2.*dhb)) 

1 big = dabs(vz*conc(8  ,j  4- 1)/2.  *dhb) 
if(dabs(g(6)).le.big*emnax)  g(6)  = 0. 


del.N(H + )-del.N(OH-)  + 3 *del.N(Cu  + + ) = 0 


temp5  = -l.+z(5)/RTF*(phi(j  + l)-phi(j-l))/4. 

1 -vz/Db(5)/2.  *dhb 

a(7,5)  = Db(5)*temp5 

tempS  = 2.-z(5)/RTF*(phi(j-l)-2*phi(j)4-phi(j  4-1)) 

b(7,5)  = Db(5)*temp5 

temp5  = -l.-z(5)/RTF*(phi(j  + l)-phi(j-l))/4. 
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1 +vz/Db(5)/2.*dhb 

d(7,5)  = Db(5)*temp5 
temp6  = -(-1.  + z(6)/RTF*(phi(j  + l)-phi(j-l))/4. 

1 -vz/Db(6)/2.  *dhb) 

a(7,6)  = Db(6)*temp6 

temp6  = -(2.-z(6)/RTF*(phi(j-l)-2*phi(j)+phi(j  + 1))) 

b(7,6)  = Db(6)*temp6 

temp6  = -(-l.-z(6)/RTF*(phi(j  + l)-phi(j-l))/4. 

1 +vz/Db(6)/2.*dhb) 

d(7,6)  = Db(6)*temp6 
temp9  = -1.  + z(9)/RTF*(phi(j  + l)-phi(j-l))/4. 

1 -vz/Db(9)/2.  *dhb 

a(7,9)  = 3*Db(9)*temp9 

temp9  = 2.-z(9)/RTF*(phi(j-l)-2‘Kphi(j)  + phi(j  + 1)) 

b(7,9)  = 3*Db(9)*temp9 

temp9  = -l.-z(9)/RTF*(phi(j  + l)-phi(j-l))/4. 

1 + vz/Db(9)/2 . *dhb 

d(7,9)  = 3*Db(9)*temp9 

temp5  = -z(5)/RTF*conc(5,j) 

1 +z(5)/RTF*(conc(5,j  + l)-conc(5,j-l))/4. 

temp6  = -z(6)/RTF*conc(6,j) 

1 +z(6)/RTF*(conc(6,j  + l)-conc(6,j-l))/4. 

temp9  = -z(9)/RTF*conc(9,j) 

1 +z(9)/RTF*(conc(9,j  + l)-conc(9,j-l))/4. 

a(7,n-l)  = Db(5)*temp5-Db(6)*temp6  + 3*Db(9)*temp9 

temp5  = 2.*z(5)/RTF*conc(5,j) 
temp6  = 2.*z(6)/RTF*conc(6,j) 
temp9  = 2.*z(9)/RTF*conc(9,j) 

b(7,n-l)  = Db(5)*temp5-Db(6)*temp6  + 3*Db(9)*temp9 

temp5  = -z(5)/RTF*conc(5,j) 

1 -z(5)/RTF*(conc(5,j  + l)-conc(5,j-l))/4. 

temp6  = -z(6)/RTF*conc(6,j) 

1 -z(6)/RTF  *(conc(6  ,j  + l)-conc(6,j-l))/4. 

temp9  = -z(9)/RTF*conc(9,j) 

1 -z(9)/RTF*(conc(9,j  + l)-conc(9,j-l))/4. 

d(7,n-l)  = Db(5)  *temp5  -Db(6)  *temp6  + 3 *Db(9)  *temp9 


tdiff5  = conc(5,j-l)-2‘t'conc(5,j)  + conc(5,j  + 1) 
tmig5  = z(5)/RTF*conc(5,j)*(phi(j-l)-2*phi(j)  +phi(j  + 1)) 
1 +z(5)/RTF*(conc(5,j  + l)-conc(5,j-l)) 

1 *(phi(j  + l)-phi(j-l))/4. 

tconv5  = -vz/Db(5)*(conc(5,j  + l)-conc(5,j-l))/2.*dhb 

tdiff6  = conc(6,j-l)-2*conc(6,j)+conc(6,j  + l) 
tmig6  = z(6)/RTF*conc(6,j)*(phi(j-l)-2*phi(j)+phi(j  + l)) 
1 + z(6)/RTF*(conc(6,j  + l)-conc(6  j-1)) 

1 *(pbi(j  + l)-phi(j-l))/4. 

tconv6  = -vz/Db(6)*(conc(6,j  + l)-conc(6,j-l))/2.*dhb 


tdiff9  = conc(9,j-l)-2*conc(9,j)  + conc(9,j  + 1) 
tmig9  = z(9)/RTF*conc(9,j)‘t'(phi(j-l)-2*phi(j)+phi(j  + 1)) 
1 + z(9)/RTF*(conc(9,j  4-  l)-conc(9,j-l)) 


1 *(phi(j  + l)-phi(j-l))/4. 

tconv9  = -vz/Db(9)*(conc(9,j  + l)-conc(9,j-l))/2.*dhb 


g(7)  = Db(5)*(tdiff5  + tmig5  + tconv5) 

1 -Db(6)*(tdiff6  + tmig6  + tconv6) 

1 + 3*Db(9)*(tdiff9  4-  tmig9  4-  tconv9) 

big = dabs(Db(5)  *conc(5  ,j  - 1)) 

if(big.lt.dabs(Db(5)*conc(5,j  + l)))big=dabs(Db(5)*conc(5,j  + 1)) 
if(big . It . dabs(Db(6)  *2*conc(6  ,j  )))big = dabs(Db(6)*2*conc(6  ,j )) 
if(big.lt.dabs(Db(6)*conc(6,j  + l)))big=dabs(Db(6)*conc(6,j  + 1)) 
if(big.lt.dabs(Db(6)*conc(6  ,j-l)))big=dabs(Db(6)*conc(6,j-l)) 
if(big.lt.dabs(Db(9)*2*conc(9,j)))big  = dabs(Db(9)*2*conc(9,j)) 
if(big.lt.dabs(Db(9)*conc(9,j  + l)))big=dabs(Db(9)*conc(9,j  4- 1)) 
i f(big . It . dabs(Db(9)  *conc(9  ,j  - l)))big = dabs(Db(9)  *conc(9  ,j  - 1)) 

i f(big . It . dabs(Db(5)  *z(5)/RTF  *conc(5  ,j  + l)*phi(j  + 1)/4.)) 

1 big = dabs(Db(5)*z(5)/RTF*conc(5,j  + l)*phi(j  + 1)/4.) 
if(big.  It.  dabs(Db(6)  *z(6)/RTF*conc(6  ,j  + l)*phi(j  + 1)/4.)) 

1 big  = dabs(Db(6)*z(6)/RTF*conc(6,j  + l)*phi(j  + 1)/4.) 

if(big.  It.  dabs(Db(9)  *z(9)/RTF*conc(9  ,j  + l)*phi(j  4- 1)/4.)) 

1 big  = dabs(Db(9)  *z(9)/RTF  *conc(9  ,j  + l)*phi(j  + 1)/4.) 

if(big.  It.  dabs(  vz*conc(6  ,j  + l)/2.*dhb)) 

1 big=dabs(vz*conc(6,j  + l)/2.*dhb) 

if(big.lt.dabs(vz*conc(5,j  + l)/2.*dhb)) 

1 big=dabs(vz*conc(5,j  + l)/2.*dhb) 

if(big.lt.dabs(vz*conc(9,j  + l)/2.*dhb)) 

1 big  = dabs(vz*conc(9,j  + 1)/2.  *dhb) 

if(dabs(g(7)).le.big*errxnax)  g(7)  = 0. 


del.N(7)  =0 
del.N(O2)  = 0 

a(8,7)  = -l.-vz/Db(7)/2.*dhb 
b(8,7)  = 2. 

d(8,7)  = -1.  +vz/Db(7)/2.*dhb 

g(8)  = (conc(7  ,j-l)-2*conc(7  ,j)  + conc(7  ,j  + 1)) 

1 -vz/Db(7)*(conc(7,j  + l)-conc(7,j-l))/2.  *dhb 

big = dabs(conc(7  ,j-l)) 

if(big.lt.dabs(conc(7,j  + l)))big  = dabs(conc(7  ,j  + 1)) 
i f(big . It . dabs(z(7)  /RTF  *conc(7  ,j  + l)*phi(j  + 1)/4.)) 

1 big=dabs(z(7)/RTF*conc(7,j  + l)*phi(j  + 1)/4.) 
if(big.lt.dabs(vz*conc(7,j  + l)/2.*dhb/Db(7))) 

1 big = dabs(vz*conc(7  ,j  + l)/2.*dhb/Db(7)) 

if(dabs(g(8)).le.big*errmax)  g(8)  = 0. 


Vcu  gradient  = 0.0 


a(9,n)  = 1. 
b(9,n)  = -1. 
g(9)  = Vcu(j)-Vcu(j-1) 
big = dabs(  V cu(j )) 

if(dabs(g(9)).le.big*errmax)  g(9)  = 0. 


Cu+  + 3C1-  = CuC12- 
Equilibrium  given  by  Eq2 

b(10,l)  = -Eq2*conc(4,j)**3 
b(10,8)  = 1. 

b(10,4)  = -3.*Eq2*conc(l,j)*conc(4,j)**2 
g(10)  = Eq2*conc(l,j)*conc(4,j)**3-conc(8,j) 

big=dabs(conc(8,j)) 

if(big.lt.dabs(Eq2*conc(l,j)*conc(4,j)**3)) 

1 big = dabs(conc(l  ,j)*conc(4,j)**3) 

if(dabs(g(10)).le.big*errmax)  g(10)  = 0. 

b(10,l)  = -l./conc(l,j) 
b(10,8)  = l./conc(8,j) 
b(10,4)  = -3./conc(4,j) 

g(10)  = dlog(Eq2*conc(l,j)*conc(4,j)**3/conc(8,j)) 

if(dabs(g(10)).le.errmax)  g(10)  = 0. 


del.N(9)  + del.N(10)=0 
del.N(Cu++)  + del.N(HCu02-)  = 0 


temp9 

= -1.  +z(9)/RTF*(phi(j  + l)-phi(j-l))/4. 

1 

-vz/Db(9)/2.  *dhb 

a(ll,9) 

= Db(9)*temp9 

temp9 

= 2.-z(9)/RTF*(phi(j-l)-2*phi(j)  +phi(j  + 1)) 

b(l 1,9) 

= Db(9)*temp9 

temp9 

= -l.-z(9)/RTF’,,(phi0  + l)-phi(j-l))/4. 

1 

+vz/Db(9)/2.*dhb 

d(ll,9) 

= Db(9)*temp9 

templO 

= -1.  +z(10)/RTF*(phi(j  + l)-phi(j-l))/4. 

1 

-vz/Db(10)/2.  *dhb 

a(ll,10)  = Db(10)*templ0 

templO  = 2.-z(10)/RTF*(phi(j-l)-2*phi(j)  +phi(j  + 1)) 

b(ll,10)  = Db(10)*templ0 

templO  = -l.-z(10)/RTF*(phi(j  + l)-phi(j-l))/4. 


1 +vz/Db(10)/2.*dhb 

d(ll,10)  = Db(10)*templ0 


a(ll,n-l)  = Db(9)  *(-z(9)/RTF  *conc(9  ,j ) 

1 + z(9)/RTF*(conc(9  ,j  + l)-conc(9,j-l))/4.) 

1 + Db(  1 0)  *(-z(  10)/RTF  *conc(  1 0 ,j ) 

1 +z(10)/RTF*(conc(10,j  + l)-conc(10,j-l))/4.) 

b(ll,n-l)  = Db(9)  *2.*z(9)/RTF*conc(9,j) 

1 +Db(10)*2.*z(10)/RTF*conc(10,j) 

d(ll,n-l)  = Db(9)  *(-z(9)  /RTF  *conc(9  ,j  ) 

1 -z(9)/RTF*(conc(9,j  + l)-conc(9,j-l))/4.) 

1 +Db(10)*(-z(10)/RTF*conc(10,j) 

1 -z(10)/RTF*(conc(10,j  + l)-conc(10  ,j-l))/4.) 

tdiff9  = conc(9,j-l)-2*conc(9,j)  + conc(9,j  + l) 

tmig9  = z(9)/RTF*conc(9,j)*(phi(j-l)-2*phi(j)  +phi(j  + 1)) 

1 + z(9)/RTF  / 4 . *(conc(9  ,j  + l)-conc(9,j-l)) 

1 *(phi(j  + l)-phi(j-l)) 

tconv9  = -vz/Db(9)*(conc(9,j  + l)-conc(9,j-l))/2.*dhb 

tdifflO  = conc(10,j-l)-2*conc(10,j)+conc(10,j  + l) 
tmiglO  = z(10)/RTF*conc(10,j)*(phi(j-l)-2*phi(j)+phi(j  + l)) 
1 + z(10)/RTF/4.  *(conc(10,j  + l)-conc(10,j-l)) 

1 *(phi(j  + l)-phi(j-l)) 

tconvlO  = -vz/Db(10)*(conc(10,j  + l)-conc(10,j-l))/2.*dhb 

g(ll)  = Db(9)*(tdiff9  +tmig9  +tconv9) 

1 + Db(  10)  *(tdifflO  + tmig  10  + tconvlO) 

big=dabs(conc(10,j-l)) 
if(big.lt.dabs(conc(10,j  + 1))) 

1 big=dabs(conc(10,j  + l)) 
i f(big . It.  dabs(2  *conc(9  ,j  )))big = dabs(2*conc(9  ,j )) 
if(big.lt.dabs(conc(9,j  + l)))big=dabs(conc(9,j  + 1)) 
if(big.  It.  dabs(conc(9  ,j  - l)))big = dabs(conc(9  ,j  - 1)) 

if(big.lt.dabs(z(10)/RTF*conc(10,j  + l)*phi(j  + 1)/4.)) 

1 big = dabs(z(  1 0)/RTF*conc(  1 0 ,j  + l)*phi(j  + 1)/4.) 

if(big.lt.dabs(z(9)/RTF*conc(9,j  + l)*phi(j  + 1)/4.)) 

1 big = dabs(z(9)/RTF*conc(9,j  + l)*phi(j  + 1)/4.) 

if(big.lt.dabs(vz/Db(10)*conc(10,j  + l)/2.*dhb)) 

1 big  = dabs(vz/Db(  10)*conc(  10, j + l)/2.*dhb) 

if(big.lt.dabs(vz/Db(9)*conc(9,j  + l)/2.*dhb)) 

1 big=dabs(vz/Db(9)*conc(9,j  + l)/2.*dhb) 

if(dabs(g(ll)).le.big*errmax)  g(ll)  = 0. 
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c Cu++  + H20  = HCu02-  + 3H  + 

c Equilibrium  given  by  Eq4 

c 

c b(12,5)  = -3.*conc(10,j)*conc(5,j)**2 

c b(12,9)  = Eq4 

c b(12,10)  = -conc(5,j)**3 

c g(12)  = conc(10,j)*conc(5,j)**3-Eq4*conc(9j) 

c big  = conc(10,j)*conc(5,j)**3 

c if(big.lt.Eq4*conc(9,j))  big=Eq4*conc(9,j) 

c if(dabs(g(12)).le.big*errmax)  g(12)  = 0. 

b(12,5)  = -3./conc(5,j) 
b(12,9)  = l./conc(9,j) 
b(12,10)  = -l./conc(10,j) 

g(12)  = dlog(conc(  1 0 ,j ) *conc(5  ,j ) * *3  / conc(9  ,j  )/Eq4) 

if(dabs(g(12)).le.errmax)  g(12)  = 0. 


itest=0 
DO  57  i=l,n 
if  (g(i).ne.O.O)  itest=l 
57  continue 

c if  (itest.eq.l  .and.  iter.gt.20) 
c 1 print*, ’j  = ’j,’g  = ’,g 

c if  (itest.eq.l  .and.  iter.eq.itmax  .and.  j.eq.ij  + 1) 
c 1 print*,  ’j  = ’,j,’g=’,g 

if  (itest.eq.l  .and.  iter.eq.itmax) 

1 print*,,j  = ’,j,’g=’,g 

return 

end 


subroutine  ssbcnj(j) 

q *******  a*********** ****** ********  *******  ********  *************** 

c * sets  all  concentrations  to  bulk  values  * 

q ************************************************************** 

implicit  double  precision(a-h,o-z) 

COMMON/BA/  N,NJ,A(12,12),B(12, 12), C(12, 1001), D(12, 25), G(12) 

1 ,X(12, 12),  Y(12, 12) 
common/var/conc(  1 0 , 1 00 1 ) , phi(  1 00 1 ) 

1 ,Vcu(1001) 

common/par/dfb,Db(10),z(10),delf,delb,dhf,dhb,rpm 

1 ,rkl,rk2,rko2,Eql,Eq2,Eq3,Eq4,betaa,betac,area 

2 , pH, c2sat,vz, alpha, Ahfc,Vm,ij 

common /const/ errmax  ,RTF  ,pi , F arad,  iter , itmax 
common/  curr/ current 


ELECTRONEUTRALITY 

determines  Na+  concentration 


DO  46  index  =l,n-2 
b(l, index)  = -z(index) 
g(l)  = z(index)*conc(index,j)  + g(l) 

46  continue 

big  = conc(l,j) 

DO  47  index=2,n-2 

if(big.lt.conc(index,j))  big  = conc(indexj) 

47  continue 

if(dabs(g(l)).le.big*errmax)  g(l)  = 0. 


water  equilibrium 

b(2,5)  = -conc(6,j) 

b(2,6)  = -conc(5,j) 

g(2)  = conc(5,j)*conc(6,j)-l.e-20 

big  = conc(5,j-l)*conc(6,j) 

if(dabs(g(2)).le.big*emnax)  g(2)  = 0. 


fix  Cl-  concentration 
b(3,4)  = -1.0 

g(3)  = conc(4,j)-0.5/1000. 
big=conc(4,j) 

if(dabs(g(3)).le.big*errmax)  g(3)  = 0. 


Cu+  + 2 Cl-  = CuC12- 
Equilibrium  given  by  Eql 


b(4,l)  = -Eql  *conc(4,j)**2 
b(4,2)  = 1. 

b(4,4)  = -2 . *Eq  1 *conc(  1 ,j ) *conc(4  ,j ) 

g(4)  = Eq  1 *conc(  1 ,j ) *conc(4  ,j ) **2-conc(2  ,j ) 

big = dabs(conc(2,j)) 

if(big . It.  dabs(Eq  1 *conc(  1 ,j  - 1 ) *conc(4  j - 1 )**2)) 

1 big = dabs(Eq  1 *conc(  1 ,j  - 1 )*conc(4  ,j  - 1 )**2) 

if(dabs(g(4)).le.big*errmax)  g(4)  = 0. 


b(4,l)  = -l./conc(l,j) 
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b(4,2)  = l./conc(2,j) 
b(4,4)  = -2./conc(4,j) 

g(4)  = dlog(Eq  1 *conc(  1 ,j  ) *conc(4  ,j ) **2/conc(2  ,j  )) 

if(dabs(g(4)).le.errmax)  g(4)  = 0. 


c 

c fix  H+  by  pH 

c 

ch  = 10**(-pH)/1000. 

b(5,5)  = -1.0 

g(5)  = conc(5,j)-ch 

big=conc(5,j-l) 

if(big.lt.ch)  big  = ch 

if  (dabs(g(5)) . It . big*errmax)  g(5)=0 

c 

c fix  Cu+  at  zero 

c 

tbulk  = l.e-20 

b(6,l)  = -1.0 

g(6)  = conc(l,j)-tbulk 

big=conc(l,j-l) 
if(big.lt.tbulk)  big=tbulk 
if  (dabs(g(6)).lt.big*errmax)  g(6)=0 

c 

c fix  02  cone 

c 

b(7,7)  = -1.0 

g(7)  = conc(7,j)-.2579e-3/1000. 
big  = conc(7,j-l) 

if  (dabs(g(7)).lt.big*emnax)  g(7)  = 0 
c 

c fix  phi 

c 

b(8,n-l)=  -1. 
g(8)=  phi(j)-le-30 
big = dabs(phi(j-l)) 
if  (dabs(g(8)).lt.big*errmax)  g(8)=0 

c 

c Vcu  gradient  = 0.0 


c 


a(9,n)  = 1. 
b(9,n)  = -1. 
g(9)  = Vcu(j)-Vcu(j-1) 


big = dabs(Vcu(j)) 

if(dabs(g(9)).le.big*errmax)  g(9)  = 0. 


Cu+  + 3C1-  = CuC12- 
Equilibrium  given  by  Eq2 

b(10,l)  = -Eq2*conc(4,j)**3 
b(10,8)  = 1. 

b(10,4)  = -3.*Eq2*conc(l,j)*conc(4,j)**2 
g(10)  = Eq2*conc(l,j)*conc(4,j)**3-conc(8,j) 

big = dabs(conc(  8 ,j  - 1)) 
if(big.lt.dabs(Eq2*conc(l,j)*conc(4,j)**3)) 

1 big  = dabs(conc(l  ,j)*conc(4,j)**3) 

if(dabs(g(10)).le.big*ernnax)  g(10)  = 0. 


b(10,l)  = -l./conc(l,j) 
b(10,8)  = l./conc(8,j) 
b(10,4)  = -3./conc(4,j) 

g(10)  = dlog(Eq2  *conc(  1 ,j ) *conc(4  ,j ) **3  / conc(  8 ,j )) 

if(dabs(g(10)).le.errmax)  g(10)  = 0. 


fix  Cu+  + to  zero 


tbuik=l.e-25 
b(ll,9)  = -1.0 
g(ll)  = conc(9,j)-tbulk 
big=conc(9,j) 

if  (dabs(g(ll)).lt.big*ernnax)  g(ll)=0 


Cu++  + H20  = HCu02-  + 3H  + 
Equilibrium  given  by  Eq4 


b(12,5)  = -3*conc(10,j)’,‘conc(5,j)',",,2 

b(12,9)  = Eq4 

b(12,10)  = -conc(5,j)**3 

g(12)  = conc(  1 0 ,j  ) *conc(5  ,j ) * *3  -Eq4  *conc(9  ,j  ) 

big = conc(  10  j - 1 ) *conc(5  ,j)  * *3 

if(big . It . Eq4  *conc(9  ,j ))  big = Eq4*conc(9  ,j ) 

if(dabs(g(12)).le.big*errmax)  g(12)  = 0. 

b(12,5)  = -3./conc(5,j) 
b(12,9)  = l./conc(9,j) 


b(12, 10)  = -l./conc(10,j) 

g(12)  = dlog(conc(10,j)*conc(5,j)**3/conc(9,j)/Eq4) 

if(dabs(g(12)).le.errmax)  g(12)  = 0. 
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c DO  57  i=l,n 

c if  (iter.eq.itmax  .and.  g(i).ne.O.O)  print*,’j  = ’,j,’g=’,g 
c 57  continue 

itest=0 
DO  57  i=l,n 
if  (g(i).ne.O.O)  itest=  1 
57  continue 

c if  (itest.eq.l  .and.  iter.gt.20)  print*, ’j  = ’,j,’g  = ’,g 

return 

end 

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 

* Calculate  axial  velocity  for  rotating  disk  * 

* based  on  equation  96-9  in  Newman  text  * 

******************************************************************** 

subroutine  calcvz(zz) 
implicit  double  precision(a-h,o-z) 

COMMON/BA/  N,NJ,A(12, 12),B(12, 12),C(12, 1001),D(12,25),G(12) 

1 ,X(12,12),Y(12,12) 
common/var/conc(10, 1001),phi(1001) 

1 ,Vcu(1001) 

common/par/dfb,Db(10),z(10),delf,delb,dhf,dlib,rpm 

1 ,rkl,rk2,rko2,Eql,Eq2,Eq3,Eq4,betaa,betac,area 

2 , pH, c2sat,vz, alpha, Ahfc,Vm,ij 
common/ const/ errmax , RTF  ,pi , F arad , iter , itmax 
common/  curr/  current 

zzb  = zz-delf 
IF  (zzb.lt.0.0)  THEN 
vz=0.0 
ELSE 

zeta  = zzb  * (rpm*pi/30./0.01036)**0.5 
termH  = -0.51023*zeta**2  4-  l./3.*zeta**3  - 0. 1027*zeta**4 
vz  = (rpm*pi/30.*0.01036)**0.5*termH 
END  IF 
c vz=0. 
return 
end 


SUBROUTINE  BAND(J) 

IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 
DIMENSION  E(12,13,1001) 
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COMMON/BA/  N,NJ,A(12,12),B(12,12),C(12,1001),D(12,25),G(12) 
1 ,X(12, 12),Y(12, 12) 

101  FORMAT  (15H  DETERM =0  AT  J=,I4) 

C PRINT  J,N 
NP1  = N + 1 
IF  (J-2)  1,6,8 

1 CONTINUE 
DO  2 1=1, N 
D(I,2*N  + 1)  = G(I) 

DO  2 L=1,N 
LPN  = L + N 

2 D(I,LPN)  = X(I,L) 

CALL  MATINV(N,2*N+1, DETERM) 

IF  (DETERM)  4,3,4 

3 PRINT  101,  J 

4 DO  5 K=1,N 
E(K,NP1,1)  = D(K,2*N+1) 

DO  5 L=1,N 

E(K,L,  1)  = - D(K,L) 

LPN  = L + N 

5 X(K,L)  = - D(K,LPN) 

RETURN 

6 DO  7 1=1, N 
DO  7 K=1,N 
DO  7 L=1,N 

7 D(I,K)  = D(I,K)  + A(I,L)*X(L,K) 

8 IF  (J-NJ)  11,9,9 

9 DO  10  1=1, N 
DO  10  L=1,N 

G(I)  = G(I)  - Y(I,L)*E(L,NPl,J-2) 

DO  10  M=1,N 

10  A(I,L)  = A(I,L)  + Y(I,M)*E(M,L,J-2) 

11  DO  12  1=1,  N 
D(I,NP1)  = - G(I) 

DO  12  L=1,N 

D(I,NP1)  = D(I,NP1)  + A(I,L)*E(L,NP1,J-1) 

DO  12  K=1,N 

12  B(I,K)  = B(I,K)  + A(I,L)*E(L,K,J-1) 

CALL  MATINV(N,NP1, DETERM) 

IF  (DETERM)  14,13,14 

13  PRINT  101,  J 

14  DO  15  K=1,N 
DO  15  M=1,NP1 

15  E(K,M,J)  = - D(K,M) 

IF  (J-NJ)  20,16,16 

16  DO  17  K=1,N 

17  C(K,J)  = E(K,NP1,J) 

DO  18  JJ=2,NJ 

M = NJ  - JJ  + 1 
DO  18  K=1,N 
C(K,M)  = E(K,NP1,M) 

DO  18  L=1,N 
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18  C(K,M)  = C(K,M)  + E(K,L,M)*C(L,M+ 1) 
DO  19  L=1,N 

DO  19  K=1,N 

19  C(K,1)  = C(K,  1)  + X(K,L)*C(L,3) 

20  RETURN 
END 


SUBROUTINE  MATINV(N,M, DETERM) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

DIMENSION  ID(12) 

COMMON/BA/NTEMP,NJ,A(12, 12),B(12, 12),C(12, 1001),D(12,25),G(12) 
1 ,X(12,12),Y(12,12) 

DETERM=1.01 
DO  1 I=1,NTEMP 

I ID(I)=0 

DO  18  NN=1,NTEMP 

BMAX=1.1 

DO  6 I=1,NTEMP 

IF(ID(I).NE.O)  GO  TO  6 

BNEXT=0.0 

BTRY=0.0 

DO  5 J=1,NTEMP 

IF(ID(J).NE.O)  GO  TO  5 

IF(DABS(B(I,J)).LE.BNEXT)  GO  TO  5 

BNEXT=DABS(B(I,J)) 

IF(BNEXT.LE.BTRY)  GO  TO  5 

BNEXT=BTRY 

BTRY=DABS(B(I,J)) 

JC=J 

5 CONTINUE 

IF(BNEXT.GE.BMAX*BTRY)  GO  TO  6 

BMAX=BNEXT/BTRY 

IROW=I 

JCOL=JC 

6 CONTINUE 

IF(ID(JC)  .EQ.  0)  GO  TO  8 
DETERM=0.0 
RETURN 
8 ID(JCOL)  = l 

IF(JCOL.EQ.IROW)  GO  TO  12 
DO  10  J=1,NTEMP 
SAVE = B(IROW,  J) 

B(IROW,J)=B(JCOL,J) 

10  B(JCOL,J)  = SAVE 
DO  11  K=1,M 
SAVE = D(IROW,K) 

D(IROW,K)=D(JCOL,K) 

II  D(JCOL,K)  = SAVE 

12  F = 1.0/B(JCOL,JCOL) 

DO  13  J=1,NTEMP 

13  B(JCOL,J)=B(JCOL,J)*F 
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DO  14  K=1,M 

14  D(JCOL,K) = D(JCOL,K)*F 
DO  18  I=1,NTEMP 
IF(I.EQJCOL)  GO  TO  18 
F=B(I,JCOL) 

DO  16  J=1,NTEMP 

16  B(I, J) = B(I,  J)-F*B(J COL, J) 
DO  17  K = 1,M 

17  D(I,K)=D(I,K)-F*D(JCOL,K) 

18  CONTINUE 
RETURN 
END 


Appendix  B 

FORTRAN  CODE  FOR  IMPEDANCE  RESPONSE 


The  program  listing  contains  all  of  the  necessary  code  to  calculate  the  results 
of  the  impedance  model  presented  in  this  work.  The  program  was  compiled  by 
a FORTRAN77  compiler  on  a Digital  Equipment  DECstation  3100.  A routine 
to  calculate  the  steady  state  concentration  profile  is  nested  in  the  main  program. 
A series  of  subroutines  containing  the  governing  equations  based  on  mesh  point 
(which  represents  distance  from  the  electrode  surface)  are  called  by  the  subroutine 
for  the  steady  state  and  the  main  program  to  calculate  the  impedance  response. 

The  steady  state  concentration  profile  was  calculated  by  the  subroutine 
‘steady’.  The  concentration  of  one  species  was  calculated,  but  two  dimensions 
were  used  to  allow  the  use  of  the  same  global  variables  and  ‘BAND’  subroutine  as 
those  for  the  impedance  model.  Variable  two  is  a constant,  has  no  physical  mean- 
ing in  the  calculations  of  the  steady  state  concentration  profile,  and  is  independent 
of  variable  one. 

The  boundary  condition  for  the  electrode  surface  is  listed  in  subroutine  ‘ssbcl  ’ 
which  contains  a kinetic  expression  for  the  copper  dissolution  reaction.  The  gov- 
erning equation  for  the  hydrodynamic  diffusion  layer  of  a rotating  disk  electrode 
is  contained  in  subroutine  ‘ssbulk’.  The  fluid  velocity  to  the  disk  is  calculated  in 
subroutine  ‘calcvz’.  The  equation  governing  the  behavior  of  a porous  film  is  listed 
in  subroutine  ‘ssfilm’.  It  similar  to  that  in  ‘ssbulk’  except  that  a film  diffusivity  is 
used,  and  fluid  velocity  is  zero.  The  subroutine  ‘ssinter’  couples  the  porous  film 
and  hydrodynamic  regions  and  accounts  for  the  difference  in  the  two  mesh  sizes. 
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The  boundary  condition  representing  a distance  far  away  from  the  electrode  is 
listed  in  subroutine  ‘bcnj’.  It  sets  the  concentration  of  the  produced  species  to 
zero. 

The  complex  concentration  response,  Ac,  was  calculated  by  the  main  program 
utilizing  the  surface  concentration  calculated  by  subroutine  ‘steady’.  The  cur- 
rent response  was  calculated  from  Ac  and  used  to  determine  the  impedance.  The 
boundary  condition  for  the  electrode  surface  is  listed  in  subroutine  ‘bcl’  which 
contains  a kinetic  expression  for  dissolution  with  a perturbation  ‘deltae’.  The  sub- 
routines ‘film’,  ‘inter’,  and  ‘bulk’  contain  equations  that  govern  the  mass  transfer 
region,  and  the  subroutine  ‘bcnj’  sets  the  response  to  zero. 

The  matrix  setup  by  the  equations  and  boundary  conditions  was  solved  by 
the  subroutines  ‘BAND’  and  ‘MATINV’  which  were  listed  in  Appendix  A.  Regres- 
sions were  performed  with  a non-linear  complex  regression  routine  developed  by 
L.  Garcia-Rubio. 
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c PROGRAM  TO  CALCULATE  THE  IMPEDANCE  RESPONSE  OF  A METAL  DISSOLVING 
c AND  DIFFUSING  THROUGH  A POROUS  FILM  AND  ROTATING  DISK  ELECTRODE 
c DIFFUSION  LAYER 

c To  run  independently,  comment  out  subroutine  statement  and  p(i)’s 
c In  the  programs  present  form,  it  is  designed  to  run  as  a subroutine 
c for  a regression  routine 

c Use  BAND  and  MATINV  from  steady  state  program 

SUBROUTINE  KSUB(M,FREQ,p,eo,zr,zi) 
implicit  double  precision(a-h,o-z) 

COMMON/BA/  N,NJ,A(2,2),B(2,2),C(2,1001),D(2,2),G(2) 

1 ,X(2,2),Y(2,2),ch(2, 1001) 

common/par/D  f,  Db , del  f,  delb , rkf,  rkb , w , dhf,  dhb , scone  ,vz 
1 ,rpm,ij 

dimension  p(20) , freq(800) , zr( 800) , zi( 800) 


delf  : 

= 10**(p(l)) 

dfb 

= 10**p(2) 

db 

= 10**p(3) 

cap 

= 10*4(4) 

rkf  = 

= 10**p(5) 

rkb 

= 10**p(6) 

nj 

=dint(p(8)) 

Rs 

=eo 

nj  = 

=251 

rpm 

= 1000.0 

porosity  factor 

df  = 

= dfb*db 

Farad 

= 96487. 

Pi 

= 3.141592654 

deltae 

= .01 

taf 

= 19.5 

area 

= .384845 

itmax 

= 6 

c READ  (10,41)  Db,rpm,Df,delf,cap,nj,rkf,rkb 
CALL  STEADY 

rdelb=  1.61*Db**0.33333*0.01036**0. 166666/(pi*rpm/30.)**0.5 

delb  = 3 . *rdelb 

Farad  = 96487 

pi  = 3.141592654 

deltae  - .01 

ij  = (nj-l)/2 

dhf  = delf/(l.*(ij  -1)) 

dhb  = delb/(l.*(nj-ij)) 

n =2 

do  111  nfreq=  l,m 
w=freq(nfreq) 
do  11  i=l,n 
do  11  k=l,nj 
ch(i,k)  = .001 
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c(i,k)=0.0 
11  continue 

do  29  i=l,n 
do  29  k=l,n 
x(i,k)=0.0 
y(i*k)=0.0 
29  continue 

DO  51  iter  =1, Umax 
do  21  j = l,nj 
do  20  i=l,n 
g(i)=0.0 

do  20  k=l,n 
a(i,k)=0.0 
b(i,k)=0.0 
d(i,k)=0.0 
20  continue 

c define  zz 

IF(j.le.ij)  then 
zz=dhf*(j-l) 

ELSE 

zz=delf+dhb*(j-ij) 

END  IF 

call  calcvz(zz,rpm) 

IF(j.eq.l)  THEN 
call  bcl(j) 

ELSE  if(j.gt.l.and.j.lt.ij)then 
call  film(j) 

ELSE  if(j.eq.ij)  then 
call  inter(j) 

ELSE  if(j.eq.nj)  then 
call  bcnj(j) 

ELSE 

call  bulk(j) 

END  IF 
call  band(j) 

21  continue 

q **************************************** 

DO  31  k=l,nj 

ch(  1 ,k) = ch(  1 ,k) + c(  1 ,k) 

ch(2,k) = ch(2,k) + c(2,k) 

3 1 continue 
51  continue 

c Calculate  impedance 
bf  = taf 
bb  = taf 

tl  = (rkf*bf  + rkb  *bb*sconc)  *del  tae-rkb  *ch(2 , 1 ) 
t2  = (t  1 **2 + (rkb  *ch(  1 , 1))  * *2)  *Farad*area 
zrwar  = deltae*tl/t2 
ziwar  = deltae*rkb*ch(l,l)/t2 
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c include  double  layer  capacity  and  Rs 
temp4  = l.-w*cap*ziwar 
denom  = temp4**2  + (w*cap*zrwar)**2 
zr(nfreq)  - zrwar*(temp4+w*cap*ziwar)/denom+Rs 

zi(nfreq)  = (temp4*ziwar-w*cap*zrwar**2)/denom 

c f(nfreq)  = zr 

c f(nfreq+m)  = zi 

111  continue 

Return 

END 


subroutine  steady 

implicit  double  precision(a-h,o-z) 

COMMON/BA/  N,NJ,A(2,2),B(2,2),C(2, 1001),D(2,2),G(2) 
1 ,X(2,2),  Y(2,2),ch(2, 1001) 

common/par/Df ,Db , del  f , delb , rkf,  rkb , w , dhf , dhb , scone , vz 

1 ,rpm,ij 


c tape55  = steady  state  concentration  profile 
open(unit=55,file=  ’tape55’,  status  = ’old’) 

Farad  = 96487 
pi  = 3.141592654 
taf  = 19.5 
itmax  = 6 

rdelb=  1.61*Db**0.33333*0.01036**0. 166666/(pi*rpm/30.)**0.5 

delb  = 3*rdelb 

ij  = (nj-l)/2 

dhf  = delf/(l.*(ij-l)) 

dhb  = delb/(l.*(nj-ij)) 

n =2 

do  11  i=l,n 
do  11  k=l,nj 
ch(i,k)  = .001 
c(i,k)=0.0 
11  continue 

DO  51  iter— 1, itmax 
do  25  j = l,nj 
do  20  i=l,n 
g(i)=0.0 
do  20  k=l,n 
a(i,k)  = 0.0 
b(i,k)=0.0 
d(i,k)=0.0 
x(i,k)=0.0 
y(i,k)=0.0 
20  continue 
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c define  zz 

IF(j.lt.ij)  then 
zz=dhf*(j-l) 

ELSE 

zz=delf+dhb*(j-ij) 

END  IF 
call  calcvz(zz) 

IF(j.eq.I)  THEN 
call  ssbcl(j) 

ELSE  if(j.gt.l.and.j.lt.ij)then 
call  ssfilm(j) 

ELSE  if(j.eq.ij)  then 
call  ssinter(j) 

ELSE  if(j.eq.nj)  then 
call  ssbcnj(j) 

ELSE 

call  ssbulk(j) 

END  IF 
call  band(j) 

25  continue 

q ***********************************>|e*s|«****** 

DO  31  k=l,nj 

IF(c(l,k).lt.-0.999*ch(l,k))  c(l,k)=-0.999*ch(l,k) 
ch(  1 ,k) = ch(  1 ,k)  + c(  1 ,k) 
ch(2,k) = ch(2  ,k)  + c(2  ,k) 

IF(iter.eq.itmax)  then 
IF(k.lt.ij)  then 
zz=dhf*(k-l) 
else 

zz = delf  + dhb*(k-ij) 

END  IF 

write(55,208)  zz,ch(l,k),ch(2,k) 

END  IF 
3 1 continue 
51  continue 

scone  = ch(l,l) 

208  fonnat(3(el8.8,3x)) 
close(55) 
return 
END 


subroutine  ssbclold(j) 
implicit  double  precision(a-h,o-z) 

COMMON/BA/  N,NJ,A(2,2),B(2,2),C(2, 1001),D(2,2),G(2) 
1 ,X(2,2),Y(2,2),ch(2, 1001) 

common/par/Df,Db, delf, delb, rkf,rkb,w,dhf,dhb, scone, vz 
1 ,rpm,ij 
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b(l,l)  = Df/dhf+rkb*exp(-19.5*0.1)/96487. 
d(l,l)  = -Df/dhf 

g(l)  = -ch(l,l)*b(l,l)-ch(l,2)*d(l,l) 

1 +rkf*exp(19.5*0.1)/96487. 

b(2,2)  = -1.0 
g(2)  = ch(2,j)-0.5 
return 
end 


subroutine  ssbcl(j) 

implicit  double  precision(a-h,o-z) 

COMMON/BA/  N,NJ,A(2,2),B(2,2),C(2, 1001),D(2,2),G(2) 
1 ,X(2,2),Y(2,2),ch(2, 1001) 

common/par /Df,Db,  del  f, delb,  rkf,rkb,w,dhf,dhb,  scone,  vz 
1 ,rpm,ij 


CDdnf  = (rkf-rkb*ch(  1 ,j))/96487 . 

CDdnf  = (rkf-rkb*ch(  1 ,j))/96487 ./. 384845 
b(l,l)  = Db/dhb 
d(l,l)  = -Db/dhb 

g(l)  = -ch(l,j)*b(l,l)-ch(l,j  + l)*d(l,l)  + CDdnF 


b(2,2)  = -1.0 
g(2)  =ch(2,j)-0.5 
return 
end 


subroutine  ssbulk(j) 

implicit  double  precision(a-h,o-z) 

COMMON/BA/  N,NJ,A(2,2),B(2,2),C(2, 1001),D(2,2),G(2) 
1 ,X(2,2),  Y(2,2),ch(2, 1001) 
common/par/Df,Db,delf, delb, rkf,rkb,w,dhf,dhb, scone, vz 
1 ,rpm,ij 


a(l,l)  = -Db/dhb**2-vz/2./dhb 
b(l,l)  = 2*Db/dhb**2 
d(l,l)  = -Db/dhb**2 + vz/2.  / dhb 
g(l)  = Db/dhb  **2  *(ch(l,j  + l)-2.*ch(l,j)+ch(l,j-l)) 
1 -vz/2./dhb*(ch(l,j  + l)-ch(l  j-1)) 
b(2,2)  = -1.0 
g(2)  = ch(2,j)-0.5 
return 
end 


subroutine  ssinter(j) 

implicit  double  precision(a-h,o-z) 

COMMON/BA/  N,NJ,A(2,2),B(2,2),C(2, 1001),D(2,2),G(2) 
1 ,X(2,2),Y(2,2),ch(2, 1001) 
common/par/Df,Db,delf, delb, rkf,rkb,w,dhf, dhb, scone, vz 
1 ,rpm,ij 
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constl  = 2./dhf/(dhf+dhb) 

const2  = 2./dhb/(dhf+dhb) 

a(l,l)  = Df*constl 

b(l,l)  = -D  f*const  1 - Db  *const2 

d(l,l)  = Db*const2 

a(2,2)  = Df*constl 

b(2,2)  = -Df*constl-Db*const2 

d(2,2)  = Db*const2 

g(l)  = -a(l,l)*ch(l  j-l)-b(l,l)*ch(l  j) 

1 -d(l,l)*ch(l  j + 1) 

g(2)  = -a(2,2)*ch(2,j-l)-b(2,2)*ch(2,j) 

1 -d(2,2)*ch(2.j  + l) 

return 

end 


subroutine  ssfilm(j) 

implicit  double  precision(a-h,o-z) 

COMMON/BA/  N,NJ,A(2,2),B(2,2),C(2, 1001),D(2,2),G(2) 
1 ,X(2,2),Y(2,2),ch(2,1001) 

common/par/Df,Db,delf, delb, rkf,rkb,w,dhf,dhb, scone, vz 
1 ,rpm,ij 


a(l,l)  = Df 
b(l,l)  = -2*Df 
d(l,l)  = Df 
a(2,2)  = Df 
b(2,2)  = -2*Df 
d(2,2)  = Df 

g(l)  = -a(l,l)*ch(l,j-l)-b(l,l)*ch(l,j) 
1 -d(l,l)*ch(l,j  + l) 

g(2)  = -a(2,2)*ch(2,j-l)-b(2,2)*ch(2,j) 

1 -d(2,2)*ch(2,j  + 1) 

return 
end 


subroutine  ssbcnj(j) 

implicit  double  precision(a-h,o-z) 

COMMON/BA/  N,NJ,A(2,2),B(2,2),C(2, 1001),D(2,2),G(2) 
1 ,X(2,2),Y(2,2),ch(2,1001) 

common/par/D  f , Db , delf , delb , rkf , rkb , w , dhf , dhb , scone , vz 
1 ,rpm,ij 


b(l,l)  = 1. 

g(l)  = -ch(l,j) 
b(2,2)  = -1.0 
g(2)  = ch(2,j)-0.5 
return 
end 
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subroutine  calcvzold(zz) 
implicit  double  precision(a-h,o-z) 

COMMON/BA/  N)NJ,A(2,2),B(2,2),C(2,1001),D(2,2),G(2) 
1 ,X(2,2),  Y(2,2),ch(2, 1001) 
common/par/Df,Db , del  f,  delb , rkf,  rkb , w,  dhf , dhb,  scone,  vz 
1 ,rpm,ij 


pi  = 3.141592654 

zzb  = zz-delf 
IF  (zzb.lt.0.0)  then 
vz=0.0 
ELSE 

zeta=(rpm*pi/30./0.01036)**0.5*zzb 

vz=rpm*pi/30.*zzb* 

1 (-0.5 1023  *zeta**2  + 1 . 13 . *zeta**3-0. 1027*zeta**4) 

END  IF 
return 
end 


subroutine  calcvz(zz) 

implicit  double  precision(a-h,o-z) 

COMMON/BA/  N,NJ,A(2,2),B(2,2),C(2,1001),D(2,2),G(2) 
1 ,X(2,2),Y(2,2),ch(2,1001) 

common/par /Df,Db,delf, delb, rkf, rkb,  w, dhf, dhb, scone, vz 
1 ,rpm,ij 


pi  = 3.141592654 
zzb  = zz-delf 
IF  (zzb.lt.0.0)  then 
vz=0.0 
ELSE 

zeta  = zzb  * (rpm*pi/30./0.01036)**0.5 
termH  = -0.51023*zeta**2  + l./3.*zeta**3  - 0. 1027*zeta**4 
vz  = (rpm*pi/30.*0.01036)**0.5*termH 
END  IF 
return 
end 


subroutine  bcl(j) 

implicit  double  precision(a-h,o-z) 

COMMON/BA/  N,NJ,A(2,2),B(2,2),C(2, 1001),D(2,2),G(2) 
1 ,X(2,2),  Y(2,2),ch(2, 1001) 
common/par/Df,Db,delf, delb, rkf, rkb, w, dhf, dhb, scone, vz 
1 ,rpm,ij 
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deltae  - .01 
taf  = 19.5 
bf  = taf 
bb  = taf 
Farad  = 96487. 

const  = (rkf*bf+rkb*bb*sconc)*deltae 

b(l,l)  = -Df/dhf-rkb 

d(l,l)  = Df/dhf 

b(l,2)  = -0.375*w*dhf 

d(l,2)  = -w*dhf*0.125 

b(2,2)  = -Df/dhf-rkb 

b(2,l)  = 0.375*w*dhf 

d(2,2)  = Df/dhf 

d(2,l)  = w*dhf*0. 125 

g(l)  = (Df/dhf  + rkb)*ch(  1 , l)-Df/dhf*ch(  1 ,2) 

1 + 0. 375*w*dhf*ch(2,  l)+w*dhf*0. 125*ch(2,2) 

g(2)  = -0.375*w*dhf*ch(l,l)-w*dhf*0.125*ch(l,2) 

1 + (Df/dhf  + rkb)*ch(2,  l)-Df/dhf*ch(2,2)-const 

return 
end 


subroutine  bcltest(j) 

implicit  double  precision(a-h,o-z) 

COMMON/BA/  N,NJ,A(2,2),B(2,2),C(2,1001),D(2,2),G(2) 
1 ,X(2,2),Y(2,2),ch(2,1001) 

common/par/Df,Db,delf, delb, rkf,rkb,w,dhf,dhb, scone, vz 
1 ,rpm,ij 


deltae  = .01 
taf  = 19.5 
bf  = taf 
bb  = taf 
b(l,l)  = 1. 
b(2,2)  = 1. 

g(l)  = -ch(  1 , l)-0 . 57 8 1 3667E- 1 8 
g(2)  = -ch(2, 1) +0. 12800000E-06 

return 
end 


subroutine  film(j) 

implicit  double  precision(a-h.o-z) 

COMMON/BA/  N,NJ,A(2,2),B(2,2),C(2,1001),D(2,2),G(2) 
1 ,X(2,2),  Y(2,2),ch(2, 1001) 
common/par/Df,Db,delf, delb, rkf,rkb,w,dhf,dhb, scone, vz 
1 ,rpm,ij 


a(l,l)  = Df 
b(l,l)  = -2.*Df 
b(l,2)  = -dhf*dhf*w 
d(l,l)  = Df 
a(2,2)  = Df 

b(2, 1)  = dhf*dhf*w 
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b(2,2)  = -2.+Df 
d(2,2)  = Df 

g(l)  = -Df*ch(l,j-l)+2.*Df*ch(l,j)-Df*ch(l,j  + 1) 

1 + dhf*dhf*w*ch(2,j) 

g(2)  = -Df*ch(2,j-1) +2.  *Df*ch(2,j)-Df*ch(2,j  + 1) 

1 -dhf*dhf*w*ch(  1 ,j) 

return 
end 

subroutine  inter(j) 

implicit  double  precision(a-h.o-z) 

COMMON/BA/  N,NJ,A(2,2),B(2,2),C(2,1001),D(2,2),G(2) 
1 ,X(2,2),Y(2,2),ch(2,1001) 

common/par /Df,Db,delf, delb, rkf,rkb,w,dhf,dhb, scone, vz 
1 ,rpm,ij 

const  1 = 2./dhf/(dhf+dhb) 
const2  = 2./dhb/(dhf+dhb) 
squig  = (dhb-dhf)/2./(dhb+dhf) 
c squig  = 0. 

a(l,l)=Df*constl 
if(squig.ge.O.)  a(l,2)=0.0 
if(squig.lt.O.)  a(l,2)  = w*squig 
b(l,l)  = -Df*constl-Db*const2 
b(l,2)  = -w*(l.-abs(squig)) 
d(l,l)  = Db*const2 
if(squig.le.O.)  d(l,2)=0.0 
if(squig.gt.O.)  d(l,2)  = -w"’squig 

if(squig.ge.O.)  a(2,l)=0.0 

if(squig.lt.O.)  a(2,l)=-w*squig 

a(2,2)  = Df*constl 

b(2,l)  = w*(l-abs(squig)) 

b(2,2)  = -Df*const  1 -Db*const2 

if(squig.le.0.)d(2,l)  = 0.0 

if(squig.gt.O.)  d(2,l)=w*squig 

d(2,2)  = Db*const2 

tl  = -a(l,l)*ch(l  j-l)-a(l,2)*ch(2,j-l) 

t2  = -b(l , l)*ch(  1 ,j)-b(l  ,2)*ch(2,j) 

t3  = -d(l,  l)*ch(l  ,j  + l)-d(l  ,2)*ch(2,j  + 1) 

g(l)  = tl  + t2+t3 

til  = -a(2,l)*ch(l  j-l)-a(2,2)*ch(2,j-l) 

t22  = -b(2 , 1 ) *ch(  1 ,j  )-b(2 , 2)  *ch(2  ,j) 

t33  = -d(2,l)*ch(l,j  + l)-d(2,2)*ch(2,j  + 1) 

g(2)  = tll+t22+t33 

return 

end 
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subroutine  bulk(j) 

implicit  double  precision(a-h,o-z) 

COMMON/BA/  N,NJ,A(2,2),B(2,2),C(2,1001),D(2,2),G(2) 
1 ,X(2,2),Y(2,2),ch(2,1001) 

common/par/Df,Db,delf,delb,rkf,rkb,w,dhf,dhb, scone, vz 
1 ,rpm,ij 


a(l,l)  = Db+ dhb/2.  *vz 
b(l,l)  = -2*Db 
b(l,2)  = -dhb*dhb*w 
d(l,l)  = Db-dhb/2.*vz 
a(2,2)  = Db+dhb/2.*vz 
b(2, 1)  = dhb*dhb*w 
b(2,2)  = -2.*Db 
d(2,2)  = Db-dhb/2.*vz 

g(l)  = -(Db  + dhb/2.  *vz)*ch(l  ,j-l)  + 2*Db*ch(l,j) 

1 + dhb*dhb*w*ch(2,j)-(Db-dhb/2.*vz)*ch(l,j  + 1) 

g(2)  = -(Db  + dhb/2.  ■fyz)*ch(2,j-l)-dhb*dhb*w*ch(l  j) 

1 + 2*Db*ch(2,j)-(Db-dhb/2.  *vz)*ch(2,j  + 1) 

return 
end 


subroutine  bcnj(j) 

implicit  double  precision(a-h.o-z) 

COMMON/BA/  N,NJ,A(2,2),B(2,2),C(2, 1001),D(2,2),G(2) 
1 ,X(2,2),Y(2,2),ch(2,1001) 

common/par/Df,Db,delf, delb, rkf,rkb,w,dhf,dhb, scone, vz 
1 ,rpm,ij 


b(l,l)  = 1. 
b(2,2)  = 1. 
g(l)  = -ch(lj) 
g(2)  = -ch(2,j) 

return 
end 
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